Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Runtime Error 9

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