<?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"
	>

<channel>
	<title>Automate Excel</title>
	<atom:link href="http://www.automateexcel.com/feed/" rel="self" type="application/rss+xml" />
	<link>http://www.automateexcel.com</link>
	<description>Hundreds of Excel Tips &#38; Tricks</description>
	<pubDate>Wed, 05 Nov 2008 18:21:49 +0000</pubDate>
	<generator>http://wordpress.org/?v=2.6.3</generator>
	<language>en</language>
			<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 = False
For Outer_Loop = 1 To No_of_Sheets
   [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2008/11/05/vba-routine-to-sort-sheets/feed/</wfw:commentRss>
		</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 &amp; 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 have the letters [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2008/11/04/vba-routine-to-return-column-letter-of-cell/feed/</wfw:commentRss>
		</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)
End If
If (Mid(Phrase, Current_Pos, 1) = ".") Then
 [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2008/11/03/vba-extract-number-from-string/feed/</wfw:commentRss>
		</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 = n) Then
     [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2008/10/31/find-the-nth-word-in-a-string/feed/</wfw:commentRss>
		</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 must [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2008/10/28/adding-and-naming-sheets-to-excel-workbook/feed/</wfw:commentRss>
		</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 New_Workbook
.Activate
.SaveAs Workbook_Name
End With

End Sub
To download the .XLSM file [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2008/10/27/adding-and-saving-workbooks/feed/</wfw:commentRss>
		</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 &amp; 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 type [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2008/10/24/vba-function-to-show-cell-formula/feed/</wfw:commentRss>
		</item>
		<item>
		<title>Matching Multiple Items</title>
		<link>http://www.automateexcel.com/2008/10/22/matching-multiple-items/</link>
		<comments>http://www.automateexcel.com/2008/10/22/matching-multiple-items/#comments</comments>
		<pubDate>Wed, 22 Oct 2008 03:58:59 +0000</pubDate>
		<dc:creator>Kaps</dc:creator>
		
		<category><![CDATA[Formulas]]></category>

		<category><![CDATA[isnumber]]></category>

		<category><![CDATA[items]]></category>

		<category><![CDATA[match]]></category>

		<category><![CDATA[multiple]]></category>

		<guid isPermaLink="false">http://www.automateexcel.com/?p=1038</guid>
		<description><![CDATA[Imagine that we have the following 2 lists each consisting of 3 columns of data:

And we need to find those items that are in List 1 that are in List 2. However ALL 3 columns of data must match for items to be in both lists. One way would be to construct a comprehensive IF [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2008/10/22/matching-multiple-items/feed/</wfw:commentRss>
		</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 As Integer
Dim Cell
No_of_Cols = Matrix_Range.Columns.Count
No_Of_Rows = [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2008/10/21/convert-matrix-to-vector/feed/</wfw:commentRss>
		</item>
		<item>
		<title>Excel Creating Unique Identifiers</title>
		<link>http://www.automateexcel.com/2008/10/20/excel-creating-unique-identifiers/</link>
		<comments>http://www.automateexcel.com/2008/10/20/excel-creating-unique-identifiers/#comments</comments>
		<pubDate>Mon, 20 Oct 2008 14:06:03 +0000</pubDate>
		<dc:creator>Kaps</dc:creator>
		
		<category><![CDATA[Formulas]]></category>

		<category><![CDATA[create]]></category>

		<category><![CDATA[identifiers]]></category>

		<category><![CDATA[match]]></category>

		<category><![CDATA[unique]]></category>

		<category><![CDATA[vlookup]]></category>

		<guid isPermaLink="false">http://www.automateexcel.com/?p=1003</guid>
		<description><![CDATA[Imagine that we have a list of names such as:

And we want to give each one a unique identifier:

So that the first name Bob has the identifier 1, and the next Mark has the identifier 2. This can be achieved by the following process.
We assign Bob (i.e the first person in the list) with an [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2008/10/20/excel-creating-unique-identifiers/feed/</wfw:commentRss>
		</item>
	</channel>
</rss>
