Hi,

I have the following code to open in turn all files in a directory and run a
similar routine on them. The programming will recognise the file path, but my
"Fname" is blank and not picking up any of the files in the directory

Help gratefully recieved...

Private Sub ImportNew_Click()


Dim Fileloc As String
Dim Fname As String

Dim wkbk As Workbook


Fileloc = "C:\Documents and Settings\FINPORT03\My Documents\Share\NR6
Draft.rpt"
Fname = Dir(Fileloc & "*.rpt")

While Fname < ""


Workbooks.OpenText FileDir & Fname

ConvertCostCenterMacro


Thanks

Graham