View Single Post
 
Old 01-17-2012, 11:01 PM
gsrikanth gsrikanth is offline Windows XP Office XP
Competent Performer
 
Join Date: Dec 2011
Posts: 133
gsrikanth is on a distinguished road
Default

Quote:
Originally Posted by Catalin.B View Post
Try a macro:
Code:
Sub selectSheet()
Dim i
i = Application.InputBox("Insert sheet number", "Select Sheet", Type:=1)
Worksheets(i).Select
End Sub
Thanks CB.
Reply With Quote