Routine Only opens every other file in Excel 1

[OzzieTheOwl]

Hi

I have the following code which is supposed to open up every Excel file in a directory, but it only appears to open up every other file.

Can anyone see what I have done wrong?

    Dim myFiles
    myFiles = Dir("\\bbuukvirfnp0001\scm\logistics\Costing data\Stock Values " & YearNo & "\Week " & WeekNo & "\*.xls")
    Do While Dir <> ""
        Workbooks.Open Filename:="\\bbuukvirfnp0001\scm\logistics\Costing data\Stock Values " & YearNo & "\Week " & WeekNo & "\" & myFiles
        myFiles = Dir
    Loop

Cheers

Barney

 

[PHV]

Do While [!]myFiles[/!] <> ""

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[OzzieTheOwl]

PHV

Thanks mate, helpful as ever.
I thought it must be something simple I had missed.

Cheers

Barney