<?xml version="1.0" encoding="UTF-8"?><!-- generator="WordPress/2.8.4" -->
<rss version="0.92">
<channel>
	<title>Vergel's Excel and Visual Basic Blog</title>
	<link>http://www.vadriano.com/excel-vb</link>
	<description>Learn Excel and Visual Basic.</description>
	<lastBuildDate>Tue, 04 Mar 2008 01:04:27 +0000</lastBuildDate>
	<docs>http://backend.userland.com/rss092</docs>
	<language>en</language>
	
	<item>
		<title>Working With Comments in Excel</title>
		<description><![CDATA[Here's a few lines of code that demonstrates how to hide, show, or delete all comments in the activesheet.  You can easily tweak the code to make it work on sheets other than the activesheet.


Sub HideAllComments&#40;&#41;
&#160; &#160; Dim c As Comment
&#160; &#160; For Each c In ActiveSheet.Comments
&#160; &#160; &#160; &#160; c.Visible = False
&#160; &#160; [...]]]></description>
		<link>http://www.vadriano.com/excel-vb/2008/03/03/working-with-comments-in-excel/</link>
			</item>
	<item>
		<title>How to get the column letter of the rightmost used column</title>
		<description><![CDATA[

Public Function GetLastColumnLetter&#40;&#41; As String
&#160; &#160; Dim strColumnLetter As String
&#160; &#160; Dim ipos As Integer
&#160; &#160; 
&#160; &#160; With ActiveSheet.Range&#40;"IV1"&#41;.End&#40;xlToLeft&#41;.EntireColumn
&#160; &#160; &#160; &#160; GetLastColumnLetter = .Address&#40;False, False&#41;
&#160; &#160; End With
&#160; &#160; ipos = InStr&#40;1, GetLastColumnLetter, ":"&#41;
&#160; &#160; 
&#160; &#160; GetLastColumnLetter = Left&#40;GetLastColumnLetter, ipos - 1&#41;
End Function
Sub Test&#40;&#41;
&#160; &#160; MsgBox GetLastColumnLetter&#40;&#41;
End Sub



]]></description>
		<link>http://www.vadriano.com/excel-vb/2008/03/01/how-to-get-the-column-letter-of-the-rightmost-used-column/</link>
			</item>
	<item>
		<title>Worksheet Functions in VBA</title>
		<description><![CDATA[Most worksheet functions are available for use in VBA using the WorksheetFunction object.  For example, the worksheet function:
=SUM(A1:A100)
will have this equivalent in VBA:
WorksheetFunction.Sum(Range("A1:A100"))
Try putting values in range A1:A10, and try this sample code:


Sub test&#40;&#41;
&#160; &#160; Dim r As Range
&#160; &#160; 
&#160; &#160; Set r = Worksheets&#40;"Sheet1"&#41;.Range&#40;"A1:A10"&#41;
&#160; &#160; MsgBox "Sum = " &#38; GetSum&#40;r&#41; &#38; [...]]]></description>
		<link>http://www.vadriano.com/excel-vb/2007/09/14/worksheet-functions-in-vba/</link>
			</item>
</channel>
</rss>
