quickie - how to open multiple spreadsheets?[RESOLVED]

[pickarooney]

I'm just looking for a line or two of code that opens all the .xls files in a directory (input as String by user).

i.e. a working version of this:

Dim SourcePath As String
    Dim fName As String
    
    SourcePath = InputBox("Enter Path to File(s)")
    
    ChDir SourcePath
        
    Workbooks.Open Filename:=*.*

I assume it needs some sort of loop in the form of for all file in sourcepath, workbook.open filename:= file