Using a Worksheet name from a Cell

[vectorges]

I need to open a succession of workbooks. I would like to store the workbook names in a column, use the data value in the Workbooks.Open Filename: command. How do I convert the value of a cell (i.e. A19) to use it in the open command??

 

[NateO]

You could use something like this:

Sub openit()

fname = WorksheetFunction.Substitute(Range("a19").Value, ".xls", "")
Workbooks.Open Filename:= _
"c:temp" & fname & ".xls"
End Sub


Just need to get the file path right...You could put this in the cell as well and get rid of "c:temp" &

Double quotes in this post should really be single quotes. Hope this helps. Cheers,

Nate
This message was edited by NateO on 2002-03-12 10:30