<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>Automate Excel &#187; VBA</title>
	<atom:link href="http://www.automateexcel.com/category/vba/feed/" rel="self" type="application/rss+xml" />
	<link>http://www.automateexcel.com</link>
	<description>Everything Excel. Only Excel.</description>
	<lastBuildDate>Wed, 24 Nov 2010 21:08:34 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.2.1</generator>
		<item>
		<title>VBA Routine to Sort Sheets</title>
		<link>http://www.automateexcel.com/2008/11/05/vba-routine-to-sort-sheets/</link>
		<comments>http://www.automateexcel.com/2008/11/05/vba-routine-to-sort-sheets/#comments</comments>
		<pubDate>Wed, 05 Nov 2008 18:21:49 +0000</pubDate>
		<dc:creator>Kaps</dc:creator>
				<category><![CDATA[Worksheets]]></category>
		<category><![CDATA[routine]]></category>
		<category><![CDATA[sort sheets]]></category>

		<guid isPermaLink="false">http://www.automateexcel.com/?p=1112</guid>
		<description><![CDATA[The following routine will sort the sheets in a workbook alphabetically. The flag “Sort_Mode_Descending” can be switched between descending and ascending as required. The routine is case INSENSITIVE. Sub Sort_Sheets() Dim Sort_Mode_Descending As Boolean Dim No_of_Sheets As Integer Dim Outer_Loop As Integer Dim Inner_Loop As Integer No_of_Sheets = Sheets.Count 'Change Flag As appropriate Sort_Mode_Descending = [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2008/11/05/vba-routine-to-sort-sheets/feed/</wfw:commentRss>
		<slash:comments>2</slash:comments>
		</item>
		<item>
		<title>VBA Routine to return Column Letter of Cell</title>
		<link>http://www.automateexcel.com/2008/11/04/vba-routine-to-return-column-letter-of-cell/</link>
		<comments>http://www.automateexcel.com/2008/11/04/vba-routine-to-return-column-letter-of-cell/#comments</comments>
		<pubDate>Tue, 04 Nov 2008 04:27:03 +0000</pubDate>
		<dc:creator>Kaps</dc:creator>
				<category><![CDATA[Cells, Columns & Rows]]></category>
		<category><![CDATA[cell]]></category>
		<category><![CDATA[column letter]]></category>
		<category><![CDATA[routine]]></category>

		<guid isPermaLink="false">http://www.automateexcel.com/?p=1115</guid>
		<description><![CDATA[The standard Excel “Column” Function returns the number rather than the letter of the column e.g: Column(E4) – returns the number 5 rather than the letter E Column(AD12) returns the number 30 rather than AD. The following function returns the letter rather than the number of the column. So in the above two examples we [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2008/11/04/vba-routine-to-return-column-letter-of-cell/feed/</wfw:commentRss>
		<slash:comments>17</slash:comments>
		</item>
		<item>
		<title>VBA: Extract Number From String</title>
		<link>http://www.automateexcel.com/2008/11/03/vba-extract-number-from-string/</link>
		<comments>http://www.automateexcel.com/2008/11/03/vba-extract-number-from-string/#comments</comments>
		<pubDate>Mon, 03 Nov 2008 16:16:49 +0000</pubDate>
		<dc:creator>Kaps</dc:creator>
				<category><![CDATA[Strings]]></category>
		<category><![CDATA[extract]]></category>
		<category><![CDATA[number]]></category>
		<category><![CDATA[string]]></category>

		<guid isPermaLink="false">http://www.automateexcel.com/?p=1109</guid>
		<description><![CDATA[The following function will extract the numerical portion from a string: Function Extract_Number_from_Text(Phrase As String) As Double Dim Length_of_String As Integer Dim Current_Pos As Integer Dim Temp As String Length_of_String = Len(Phrase) Temp = "" For Current_Pos = 1 To Length_of_String If (Mid(Phrase, Current_Pos, 1) = "-") Then Temp = Temp &#38; Mid(Phrase, Current_Pos, 1) [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2008/11/03/vba-extract-number-from-string/feed/</wfw:commentRss>
		<slash:comments>3</slash:comments>
		</item>
		<item>
		<title>Find the nth Word in a String</title>
		<link>http://www.automateexcel.com/2008/10/31/find-the-nth-word-in-a-string/</link>
		<comments>http://www.automateexcel.com/2008/10/31/find-the-nth-word-in-a-string/#comments</comments>
		<pubDate>Fri, 31 Oct 2008 15:54:19 +0000</pubDate>
		<dc:creator>Kaps</dc:creator>
				<category><![CDATA[Strings]]></category>
		<category><![CDATA[find]]></category>
		<category><![CDATA[string]]></category>

		<guid isPermaLink="false">http://www.automateexcel.com/?p=1101</guid>
		<description><![CDATA[The following function will find the nth word in a string: Function Find_nth_word(Phrase As String, n As Integer) As String Dim Current_Pos As Long Dim Length_of_String As Integer Dim Current_Word_No As Integer Find_nth_word = "" Current_Word_No = 1 'Remove Leading Spaces Phrase = Trim(Phrase) Length_of_String = Len(Phrase) For Current_Pos = 1 To Length_of_String If (Current_Word_No [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2008/10/31/find-the-nth-word-in-a-string/feed/</wfw:commentRss>
		<slash:comments>2</slash:comments>
		</item>
		<item>
		<title>Adding and Naming Sheets to Excel Workbook</title>
		<link>http://www.automateexcel.com/2008/10/28/adding-and-naming-sheets-to-excel-workbook/</link>
		<comments>http://www.automateexcel.com/2008/10/28/adding-and-naming-sheets-to-excel-workbook/#comments</comments>
		<pubDate>Tue, 28 Oct 2008 20:44:44 +0000</pubDate>
		<dc:creator>Kaps</dc:creator>
				<category><![CDATA[VBA]]></category>
		<category><![CDATA[naming sheets]]></category>
		<category><![CDATA[workbook]]></category>

		<guid isPermaLink="false">http://www.automateexcel.com/?p=1052</guid>
		<description><![CDATA[The following code works opening a workbook. It automatically adds a new sheet and labels it with the date. It also checks to see that the sheet doesn’t already exist – to allow for the possibility of it being opened more than once a day. This code makes use of the Workbook Open Event and [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2008/10/28/adding-and-naming-sheets-to-excel-workbook/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
		<item>
		<title>Adding and Saving Workbooks</title>
		<link>http://www.automateexcel.com/2008/10/27/adding-and-saving-workbooks/</link>
		<comments>http://www.automateexcel.com/2008/10/27/adding-and-saving-workbooks/#comments</comments>
		<pubDate>Mon, 27 Oct 2008 18:16:57 +0000</pubDate>
		<dc:creator>Kaps</dc:creator>
				<category><![CDATA[VBA]]></category>
		<category><![CDATA[workbook]]></category>

		<guid isPermaLink="false">http://www.automateexcel.com/?p=1055</guid>
		<description><![CDATA[The following code will prompt the user for the name of a workbook. It will then create and save a new workbook with the same name. Private Sub CommandButton1_Click() Dim Workbook_Name As String Dim New_Workbook As Workbook Set New_Workbook = Nothing Workbook_Name = InputBox(Prompt:="Workbook Name.", Title:="Enter the WorkBook Name :") Set New_Workbook = Workbooks.Add With [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2008/10/27/adding-and-saving-workbooks/feed/</wfw:commentRss>
		<slash:comments>2</slash:comments>
		</item>
		<item>
		<title>VBA Function to Show Cell Formula</title>
		<link>http://www.automateexcel.com/2008/10/24/vba-function-to-show-cell-formula/</link>
		<comments>http://www.automateexcel.com/2008/10/24/vba-function-to-show-cell-formula/#comments</comments>
		<pubDate>Fri, 24 Oct 2008 12:58:32 +0000</pubDate>
		<dc:creator>Kaps</dc:creator>
				<category><![CDATA[Cells, Columns & Rows]]></category>
		<category><![CDATA[udf]]></category>
		<category><![CDATA[VBA]]></category>

		<guid isPermaLink="false">http://www.automateexcel.com/?p=1045</guid>
		<description><![CDATA[The following UDF will return the formulae for a given cell reference: Function Show_Cell_Formulae(Cell As Range) As String Show_Cell_Formulae = "Cell " &#38; Cell.Address &#38; " has the formulae : ' " &#38; Cell.Formula &#38; " '" End Function So if we have: Where the cell B7 has the formulae : ‘=MAX(B5:G5) then we can [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2008/10/24/vba-function-to-show-cell-formula/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Convert Matrix to Vector</title>
		<link>http://www.automateexcel.com/2008/10/21/convert-matrix-to-vector/</link>
		<comments>http://www.automateexcel.com/2008/10/21/convert-matrix-to-vector/#comments</comments>
		<pubDate>Tue, 21 Oct 2008 12:09:44 +0000</pubDate>
		<dc:creator>Kaps</dc:creator>
				<category><![CDATA[VBA]]></category>
		<category><![CDATA[convert]]></category>
		<category><![CDATA[matrix]]></category>
		<category><![CDATA[vector]]></category>

		<guid isPermaLink="false">http://www.automateexcel.com/?p=1028</guid>
		<description><![CDATA[This is the opposite tutorial of the Converting a Single Row Vector into a Matrix tutorial. The following function will take a range as a matrix and convert it to a single column vector: Option Explicit Function Create_Vector(Matrix_Range As Range) As Variant Dim No_of_Cols As Integer, No_Of_Rows As Integer Dim i As Integer Dim j [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2008/10/21/convert-matrix-to-vector/feed/</wfw:commentRss>
		<slash:comments>3</slash:comments>
		</item>
		<item>
		<title>Converting a Single Row Vector into a Matrix</title>
		<link>http://www.automateexcel.com/2008/10/18/converting-a-single-row-vector-into-a-matrix/</link>
		<comments>http://www.automateexcel.com/2008/10/18/converting-a-single-row-vector-into-a-matrix/#comments</comments>
		<pubDate>Sat, 18 Oct 2008 08:53:56 +0000</pubDate>
		<dc:creator>Kaps</dc:creator>
				<category><![CDATA[VBA]]></category>
		<category><![CDATA[convert]]></category>
		<category><![CDATA[matrix]]></category>
		<category><![CDATA[row]]></category>
		<category><![CDATA[single]]></category>
		<category><![CDATA[vector]]></category>

		<guid isPermaLink="false">http://www.automateexcel.com/?p=995</guid>
		<description><![CDATA[This is the opposite tutorial of the Convert Matrix to Vector tutorial. The following function takes a single row vector and converts into a matrix: Function Create_Matrix(Vector_Range As Range, No_Of_Cols_in_output As Integer, No_of_Rows_in_output As Integer) As Variant ReDim Temp_Array(No_Of_Cols_in_output, No_of_Rows_in_output) Dim No_Of_Elements_In_Vector As Integer Dim Col_Count As Integer, Row_Count As Integer Dim Cell No_Of_Elements_In_Vector = [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2008/10/18/converting-a-single-row-vector-into-a-matrix/feed/</wfw:commentRss>
		<slash:comments>6</slash:comments>
		</item>
		<item>
		<title>Finding the Maximum Value in Each Column in a Range</title>
		<link>http://www.automateexcel.com/2008/10/16/finding-the-maximum-value-in-each-column-in-a-range/</link>
		<comments>http://www.automateexcel.com/2008/10/16/finding-the-maximum-value-in-each-column-in-a-range/#comments</comments>
		<pubDate>Thu, 16 Oct 2008 15:35:04 +0000</pubDate>
		<dc:creator>Kaps</dc:creator>
				<category><![CDATA[Cells, Columns & Rows]]></category>
		<category><![CDATA[column]]></category>
		<category><![CDATA[maximum]]></category>
		<category><![CDATA[range]]></category>
		<category><![CDATA[value]]></category>

		<guid isPermaLink="false">http://www.automateexcel.com/?p=978</guid>
		<description><![CDATA[The following function will return the Maximum Value in each Column in a Range: Function Max_Each_Column(Data_Range As Range) As Variant Dim TempArray() As Double, i As Long If Data_Range Is Nothing Then Exit Function With Data_Range ReDim TempArray(1 To .Columns.Count) For i = 1 To .Columns.Count TempArray(i) = Application.Max(.Columns(i)) Next End With Max_Each_Column = TempArray [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2008/10/16/finding-the-maximum-value-in-each-column-in-a-range/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
	</channel>
</rss>

