Pasted below is the entire macro as it gives the error with the first 2 lines highlighted, 1st in yellow and second in blue, no other lines are highlighted:
Option Explicit
Private Sub CommandButton1_Click()
Option Explicit
Public Sub CreateOutlookApptz()
Sheets("Sheet1").Select
On...