Go to page button using 2 cells as reference

go2page.xlsm


Hello there, Happy New Year to you!

I'm trying to achieve a "go to page button" using more than one cell as the reference.
My pages are named based on the contents of 2 cells and separated by a [comma space] - ", "

The Code I have at the moment is:

Private Sub CommandButton1_Click()
    Sheets(Range("A1").Value).Activate
End Sub

However, I really need the reference to include both "A1" & "B1".

Here is my "Rename Worksheet" Macro if it helps any.

Private Sub CommandButton1_Click()
Dim rs As Worksheet

For Each rs In Sheets
        rs.Name = rs.Range("A1") & ", " & rs.Range("B1")
   Next rs

End Sub

Thanks for any help guys and gals

Hi,

one button only to activate worksheet with active row columns A & B :

Function ExistSheet(Ws$) As Boolean
         On Error Resume Next
         ExistSheet = IsObject(Worksheets(Ws))
End Function


Private Sub CommandButton1_Click()
    With Rows(ActiveCell.Row)
        N$ = .Cells(1).Value & ", " & .Cells(2).Value
        If ExistSheet(N) Then Worksheets(N).Activate
    End With
End Sub

Maybe:

Sub r2frozz()
Dim x As String
Dim rs As Worksheet
For Each rs In ActiveWorkbook.Worksheets
rs.Activate
x = Range("A1").Value & "," & Range("B1").Value
rs.Name = x
Next rs
End Sub

To activate:

Sub r2frozz()
Dim x As String
x = Range("A1").Value & "," & Range("B1").Value
Sheets(x).Activate
End Sub

Thank you both very much!

Mark L, your suggestion of one button using the active row is outstanding and a massive improvement to my ideas on how to achieve this!

Great work!

SOLVED

Function ExistSheet(Ws$) As Boolean
         On Error Resume Next
         ExistSheet = IsObject(Worksheets(Ws))
End Function


Private Sub CommandButton1_Click()
    With Rows(ActiveCell.Row)
        N$ = .Cells(1).Value & ", " & .Cells(2).Value
        If ExistSheet(N) Then Worksheets(N).Activate
    End With
End Sub