Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Select Case ThisWorkbook.Worksheets.Range("A1")
- Case 1 : myFunction1
- Case 2 : myFunction2
- Case 3 : myFunction3
- Case Else : MsgBox "Sorry, the option provided is not valid"
- End Select
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement