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