VBA help - Sub not defined??

[Giggzz]

Private Sub CommandButton1_Click()
Dim myFiles As Variant
Dim myCountOfFiles As Long

myCountOfFiles = Get_File_Names( _
MyPath:="D:\Documents and Settings\excel\My Documents\New Folder (3)", _
Subfolders:=False, _
ExtStr:="*.xl*", _
myReturnedFiles:=myFiles)

If myCountOfFiles = 0 Then
MsgBox "No files that match the ExtStr in this folder"
Exit Sub
End If

Get_Data _
FileNameInA:=True, _
PasteAsValues:=True, _
SourceShName:="sheet1", _
SourceShIndex:=1, _
SourceRng:="A2,B2,C2", _
StartCell:="", _
myReturnedFiles:=myFiles

End Sub

Hello all found some code that maybe helpful for my needs but getting a sub not defined error at the Bold & unlined section in the above code. Any thoughts on why?

Thanks

 

[VoG]

Presumably you don't have the code for Get_File_Names - it isn't a built-in VBA function.

 

[Giggzz]

http://www.rondebruin.nl/fso.htm "Copy a range from each workbook"

Here is where I got the code from. The way I read the information I thought it gathered that info within the code. Not sure how to proceed?

 

[VoG]

The code is here http://www.rondebruin.nl/files/mergecode.txt

 

[Giggzz]

I have a folder of excel files, each file has a different name, that all contain customer information. I was trying to pull just certain information from each file and put it all onto a master sheet.

I thought the code would do that as posted with a few mods.