Use this .
Sub GotoSheet() Dim StrString As String Dim VarSheetArr Dim wksSheet As Worksheet Dim VarCount VarCount = 1 For Each wksSheet In ThisWorkbook.Worksheets StrString = StrString & VarCount & vbTab & wksSheet.Name & vbCrLf VarCount = VarCount + 1 Next wksSheet VarSheetArr = Split(StrString, vbCrLf) MsgBox "Please enter Number you want to activate " & vbCrLf & vbCrLf & StrString VarCount = Application.InputBox("Please Enter the Your Number", "Enter Sheet Number", , , , , , 1) If IsNumeric(VarCount) And VarCount <= ThisWorkbook.Worksheets.Count Then ThisWorkbook.Worksheets(VarCount).Activate Else MsgBox VarCount & " Worksheeet doest not Exists", vbCritical End If End Sub Regards Rajan verma +91 7838100659 [IM-Gtalk] From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Subhash Yadav Sent: 13 October 2012 9:19 To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ Solution required Dear Members, I wnat one solution for switch between sheet. 1. I am having on file containing 12 sheets and i have to work between the two sheets (sheet 2 & sheet 11) alternatively. If any shorcut key is there to switch between sheets. Sheets are no adjuscent othewise I can use ctrl+page up, down and I can not change location of the sheets. -- Subhash Chand Yadav -- Join official facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES (1120+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. 6) Jobs posting is not allowed. 7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To post to this group, send email to excel-macros@googlegroups.com. To unsubscribe from this group, send email to excel-macros+unsubscr...@googlegroups.com. -- Join official facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES (1120+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. 6) Jobs posting is not allowed. 7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To post to this group, send email to excel-macros@googlegroups.com. To unsubscribe from this group, send email to excel-macros+unsubscr...@googlegroups.com.