Fro Each Next Loop Troubles

[Murphy]

I want to open each file in a folder and edit it, close it and go to
the next file. My folder will not have a constant number of files. I
have the code for the editing but am having trouble with the looping.
Could someone please help me?

Thanks,
Murphy

 

[Chip Pearson]

Murphy,

Use the Dir command with a Do Loop. E.g.,

Dim FName As String
Dim WB As Workbook
ChDrive "C:"
ChDir "C:\FolderName"
FName = Dir ("*.xls")
Do Until FName = ""
Set WB = Workbooks.Open(FName)
' do something with WB
WB.Close SaveChanges:=True
FName = Dir()
Loop

 

[Steve Murphy]

Thanks for the help. The code worked just as I wanted.

Murphy

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!