Runtime Error 424. Object requried.

[pedie]

Getting Runtime Error 424. Object requried. msg. Please help.
I am trying to loop through files in folder.

[/FONT]
[FONT=monospace][COLOR=#000080]Sub LoopThruDirectory()   
Dim strPath As String
Dim strFile As String
Dim x As Integer[/COLOR][FONT=monospace][FONT=monospace][COLOR=#000080]    [/COLOR][/FONT][/FONT][/FONT]
[FONT=monospace][FONT=monospace][FONT=monospace][COLOR=#000080]    strPath = "C:\myfolder\"
    strFile = Dir(strPath)
       
    Do While strFile <> ""
        x = x + 1
        [COLOR=black][U]Sheet1.Cells(x, 1) = strFile
[/U][/COLOR]        strFile = Dir[/COLOR][/FONT][/FONT][/FONT]
[FONT=monospace][FONT=monospace][FONT=monospace][COLOR=#000080]    Loop
   
End Sub[/COLOR][/FONT][/FONT][/FONT]
[FONT=monospace][FONT=monospace][FONT=monospace][COLOR=#000080][/COLOR][/FONT][/FONT][/FONT][FONT=Courier New]

 

[VoG]

Hi Pedie. That works for me - no error.

 

[Ruddles]

Works here too.

Does it blow up first time through the loop? Last time? Somewhere in between?

 

[pedie]

I think it must be the window. At home it does not work.
Anyways thanks guys.