Sub GetSettings()
On Error Resume Next
x = ThisWorkbook.Worksheets("Menu").name
If Not Err.Number = 0 Then
MsgBox "Expected to find a Menu worksheet, but it is missing"
Exit Sub
End If
On Error GoTo 0
ThisWorkbook.Worksheets("Menu").Select
x = range("A1").value
End Sub