Compile Error

[fgwiii]

Can someone please tell me why this is getting a compile error? I am running
Excel 2003.

<Sub RDB_Copy_Sheet()
Dim myFiles As Variant
Dim myCountOfFiles As Long

myCountOfFiles = Get_File_Names( _
MyPath:="C:\Documents and Settings\W_f\My
Documents\Copy of 20090713", _
Subfolders:=True, _
ExtStr:="*_20090713_Reviewed.xl*", _
myReturnedFiles:=myFiles)

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

Get_Sheet _
PasteAsValues:=True, _
SourceShName:="", _
SourceShIndex:=1, _
myReturnedFiles:=myFiles

End Sub >

Thanks

 

[Dave Peterson]

Which line caused the error?

Did you remember to copy all the functions associated with this procedure
(get_file_names and Get_Sheet).

 

[Ron de Bruin]

Download the example workbook first from the site and change/Run the code in that workbook to test
http://www.rondebruin.nl/fso.htm

I think that Dave is correct