VBA reference to external workbook not working - HELP!

[Ashleigh]

Hello All,

I have been unable to make the following code (intended to pull a
value from an external worksheet) work:

Sub macro1()

Dim wkbk As Workbook
Dim wks As Worksheet
Dim rng As Range
Dim s1 As String



s1 = Cells(2, 4).Value
'the value in cells(2,4) is "BA32004.xls" (with the quotes)
'this workbook reference will change and so I cannot hardcode it into
the macro

Set wkbk = Workbooks(s1)
'I've referenced a string as a workSHEET name in the past and it has
worked, but it doesn't seem to be functioning as a workbook name.

Set wks = wkbk.Worksheets("File_Maint")

Set rng = wks.Range("c10")

Cells(5, 5).Value = rng.Value


End Sub

I realize that all of this could be accomplished without vba, using
the indirect function, but I am trying to create a workbook that will
operate entirely on macros. I just can't figure out what I'm doing
wrong here. Any help would be appreciated tremendously. Thanks in
advance,

Ashleigh

 

[Frank Kabel]

Hi
one question: is the other workbook open?

 

[Tom Ogilvy]

Take the quotes off the value in cells(2,4)