C
Coza
Private Sub Workbook_Open()
Sheets("Intro").Activate
With Application
MsgBox "Welcome " & "*** " & .UserName & " ***" & " to the Tracker
File.", vbInformation
End With
If Sheets("Data").Range("A1").Value = "" Then
CommandButton1.Enabled = False
Else
CommandButton1.Enabled = True
End If
End Sub
The above code returns a Compile error.
How can i get it to work?
Corey....
Sheets("Intro").Activate
With Application
MsgBox "Welcome " & "*** " & .UserName & " ***" & " to the Tracker
File.", vbInformation
End With
If Sheets("Data").Range("A1").Value = "" Then
CommandButton1.Enabled = False
Else
CommandButton1.Enabled = True
End If
End Sub
The above code returns a Compile error.
How can i get it to work?
Corey....