Dim MyString AS String
Dim MySheetName AS String


MyString = "filename.xls" ' no path
MySheetName = "sheet1" ' as an example



Windows(MyString).Activate

Sheets(MyFileNAme).Select

--
Regards,
Tom Ogilvy

"Gary''s Student" wrote in message
...
Enclose the string in double-quotes:

MyString = "C:\path\filename"

The Sheets().Activate selects a tab not a workbook
--
Gary's Student


"Super Slueth" wrote:

Hi

I'm trying to use a variable in the following code but i get an error.

Subscript out of range


I am runing a For/Next loop and need to change the file name for every
loop


Dim MyString AS String
Dim MyFileName AS String


MyString = C:\path\filename
MyFileName = somefilename



Windows(MyString).Activate

Sheets(MyFileNAme).Select


Any suggestion on how to do this correctly.


Many thanks