Posts77Registration dateSaturday September 5, 2015StatusMemberLast seenMarch 8, 2017
Nov 21, 2015 at 02:35 AM
I would like to request that If user want to go to specific sheet it has to either press shortcut key or click arrows button in the left bottom corner of sheet many times.
In short the below code will be set in list box by using userform and it will display by assigning any button on sheet and it also work if any sheet is selected then it goes to selected sheet.
Dim book As Workbook, sheet As Worksheet, sheet_list As String
For Each book In Workbooks
sheet_list = sheet_list & "Workbook: " & book.Name & vbNewLine & "Worksheets: " & vbNewLine
For Each sheet In book.Worksheets
sheet_list = sheet_list & sheet.Name & vbNewLine