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