Macro-Button (form Control)

Add this cod to Module1.

Sub GotoTab()
    Application.Goto Worksheets(Worksheets("Control").Range("C13").Value).Range("A1")
End Sub

Then assign 'GotoTab' to the button.

Hi mjali001
This code is in the attached...let me know of issues

Option Explicit
Private Sub Workbook_Open()
    Dim aSheet As Object
    Dim SheetsFound()
    ReDim SheetsFound(0)
    For Each aSheet In ActiveWorkbook.Sheets
        If Not aSheet.Name = "Control" Then
            SheetsFound(UBound(SheetsFound)) = aSheet.Name
            ReDim Preserve SheetsFound(UBound(SheetsFound) + 1)
        End If
    Next aSheet
    ReDim Preserve SheetsFound(UBound(SheetsFound) - 1)
    Columns("B:B").ClearContents
    Range("B1").Resize(UBound(SheetsFound) + 1, 1) = WorksheetFunction.Transpose(SheetsFound)
    ActiveWorkbook.Names.Add Name:="Tab_Names", RefersTo:= _
            "=OFFSET(Control!$B$1,0,0,(COUNTA(Control!$B:$B)),1)"
    With Range("C13").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:="=Tab_Names"
    End With
    Range("C13").Activate
End Sub

Option Explicit
Sub Button5_Click()
    If Range("C13").Value = "" Then
        MsgBox "Please select a Tab Name"
        Range("C13").Activate
        Exit Sub
    End If
    Sheets(Range("C13").Text).Activate
End Sub

Hi mjali001

To what code are you referring?

So I applied the macro's you've provided, the macro works terrfic in the scrap-book

What's your actual workbook look like?

All you need to do in the code I posted is change the cell reference from C13 to G30.

@Norie

The OP does not have Tabs called

Tabs.jpg

So I'm thinking this code may not work

Sub GotoTab()
    Application.Goto Worksheets(Worksheets("Control").Range("C13").Value).Range("A1")
End Sub

Misread post.