Creating a drop down menu to select a sheet

Originally Posted by JohnTopley

Sub Get_sheet()
Dim ws As String
ws = Range("Sheet_month") & Right(Range("Sheet_year"), 2)
If Not WorksheetExists(ws) Then
    MsgBox "Worksheet " & ws & " not found", vbExclamation, "Error"
    Exit Sub
End If
Sheets(ws).Select

End Sub
Function WorksheetExists(WSName As String) As Boolean
On Error Resume Next
WorksheetExists = Worksheets(WSName).Name = WSName
On Error GoTo 0
End Function

Drop down on menu for year and month

Tab "Tables" added for list of months but could hard code as list for months drop down

Thanks JohnTopley, that's exactly what I was looking for