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....