Open File Variables

[simoncohen]

I have some code that opens files "aug04.xls" and similar (i.e. fixe
names). I would like to put the month in say cell a1 on the spreadshee
and for the macro to then open the files named after what is in the cel
a1.

Thank

 

[Norman Jones]

Hi Simon

Try something like:

Sub Atester03()
Dim MyFile As Workbook
Dim sStr As String

sStr = Range("A1").Value & "04"
Set MyFile = Workbooks.Open(sStr)

End Sub

If you have Aug04 entered in the cell, change:

sStr = Range("A1").Value & "04"

to

sStr = Range("A1").Value