Activate a file which using input box

[Panoos64]

Hi all, i would like to "Activate" a file which is open but using an input box by VBA. An example of command is below but therefore that the file (e.g. "PAYROLL.xlsx") should activate by input box.

Windows("PAYROLL.xlsx").Activate

Thanking you in advance

 

[My Aswer Is This]

Try this:

I have set the default Workbook in the Inputbox.
Modify if you want:

Sub Activate_Workbook()
'Modified  9/19/2018  1:42:49 AM  EDT
On Error GoTo M
Dim ans As String
ans = InputBox("Enter Full Workbook Name", "Example:  PAYROLL.xlsx", "PAYROLL.xlsx")
Workbooks(ans).Activate
Exit Sub
M:
MsgBox "The Workbook" & ans & "  Is Not open"
End Sub

 

[Panoos64]

No My Asw, it doesn't work and it appears a msg that, the the file is not open. Your post at 17 Sep works perfect. Just is missing the "Activate" command. It open the file which i enter in "Input Box" but it doesn't "Activate" it the file, so can u modify this post (17 Sep) so that to add the command by which when open the file to "Activate" it too? Many thanks in advance and thanks for your continuance support. Hv a great day

 

[Panoos64]

Any support would be highly appreciate. Thanks

 

[My Aswer Is This]

Not sure what your saying.
I see no post here of 17 Sept.

This question was started on 19 Sept.

 

[Panoos64]

Hi My, on 17th Sep, (previous post), you provided me support (VBA code) by which i can open a file by "Input Box" and just i need to modify or develop the code, so that, to "Activate" the file which opened.
Due to different files which i work, the file which i want to "Activate" should be choosing by "Input Box"

I would like to thank you once again

 

[My Aswer Is This]

OK. Not sure if you have a question. If you have a script I previously provided and now you want it modified you need to post the script here or start a new posting and explain what you want added.

I answer a lot of question here. And do not have that particular code handy.