Extracting Data from a worksheet into another excel file

Hi,

I have an excel file with 432 worksheets. I need the info from columns C F & I to be put into column A of a new excel file. So all info from columns C F & I will go into column 1 in a new excel document. Is there a way to extract the info from columns C, F and I from all 432 worksheets and put into the new excel file? So far, I have been copying and pasting. I just now realized that there are 432 sheets and I am only on sheet 32. *big sigh*

Thank you so much for your help.

Hi!

Try this macro:

Public Function AllSheetNames()
Dim Arr() As String
Dim I as Integer
Redim Arr(Sheets.Count-1)
For I = 0 To Sheets.Count - 1
Arr(i) = Sheets(I+1).Name
Next I
AllSheetNames = Arr ' return a row array OR
AllSheetNames = Application.Worksheetfunction.Transpose(Arr)
' return a column array
End Function

I found it here

The macro returns an array of all your sheetnames. You can use that array to get the info from columns C F & I of all your sheets.