Well if you want to see how a VBA rookie would do it...

I'm sure we will find a better way, but this way may save somebody from having to type the sheet name exactly. Change sheet names to match your desires.

Sub Show_Report()

Dim MySheet As String

    MySheet = InputBox("Type a number to view one of three different calculators" _
    & vbNewLine & _
    vbNewLine & _
    "1 = Sheet1" & _
    vbNewLine & _
    "2 = Sheet2" & _
    vbNewLine & _
    "3 = Sheet3")
    
Select Case MySheet
Case 1
Sheets("Sheet1").Activate
Case 2
Sheets("Sheet2").Activate
Case 3
Sheets("Sheet3").Activate
End Select
End Sub