Code to switch between workbooks

[thomascrajan]

Hi there,
I'll try to explain my situation as best as I can - I'm trying to write
some code to switch between workbooks - where the file names are
variables.

Standard code:
Windows("ABC.xls").Activate

How can I replace the "ABC.xls" so that I can switch to any workbook I
define, and not just ABC.xls?

Thanks for any help anyone might be able to provide
Thomas.

 

[Sandy]

Binding that the workbooks are already open you can play around with
this code

Remember that you'll have to use the whole name(including the file
extension, example: Book2.xls

Sub TheSwitch()
Dim MyWkbk As String
MyWkbk = InputBox("Enter the workbook you'd like to activate")
Application.Windows(Result).Activate
End Sub

 

[thomascrajan]

Sandy,
Thanks for your input. I might be doing something wrong, but I just
copied the code into a blank module, and am getting a "Subscript out of
range" error. I do have the file open that I'm entering in the input
box, and entering the file extension too....

Any ideas?

Thanks for your time and advice!
Thomas.

 

[Guest]

Try this
Sub TheSwitch()
Dim MyWkbk As String
MyWkbk = InputBox("Enter the workbook you'd like to activate")
Application.Windows(MyWkbk).Activate
End Sub

you were getting error because Result was not defined