VBA InputBox syntax

[Drrellik]

Hello all,

I have the following

Sub onopen()
Dim i As Integer
[U][I]
Dim myvalue As Variant   [/I][/U]

On Error GoTo invalid:

[I][U]myvalue = InputBox("Workbook Name?")[/U][/I]


' copy data from sheet called daily column B & Column G

Workbooks("daily.xls").Sheets(1).Range("B32:B99").Copy Destination:=ActiveWorkbook.Sheets("input").Range("Q2")

Workbooks("daily.xls").Sheets(1).Range("G32:G99").Copy Destination:=ActiveWorkbook.Sheets("input").Range("R2")

I want to replace Workbooks("daily.xls") with Workbooks("myvalue.xls") not sure how to do it.

Thanks Don

 

[Rick Rothstein]

I want to replace Workbooks("daily.xls") with Workbooks("myvalue.xls") not sure how to do it.

Maybe Workbooks(myvalue & ".xls") ?

 

[Drrellik]

That's all it took.... thank you again for your quick response.

 

[Rick Rothstein]

That's all it took.... thank you again for your quick response.

The reason is because myvalue was a variable name... when you put it inside the quote marks, it told VB to just consider it a collection of unrelated characters... putting it outside of the quote marks let VB see it was not a text constant.

 

[Drrellik]

Thank You