Message box when no file is active

How do you show a message box (MsgBox) when no excel file is opened but Excel is running.
Sometimes I have Excel open but no workbook, I have a couple macros that inform the user that a specific type file is required to run the given macro.
I am using a tool bar with drop downs for users to select a macro and I just stumbled on this, if I dont have a workbook open the macro that is a message will fail.

Run-time error '91':
Object variable or with block variable not set

Which high-lites the MsgBox portion of code depicting it as failed.

Option Explicit

Sub Start()
    On Error GoTo EndIt
    If Left(ActiveWorkbook.Name, 6) = "AS9102" Then
        GmMotDataCollectorForm.Show
    Else
EndIt:
        MsgBox "You must have an active AS9102 excel file open." & _
        vbCrLf & _
        "Example name: ""AS9102 4502730B Y 135-1 100710.xls""" & _
        vbCrLf & _
        "Current file name: " & ActiveWorkbook.Name
    End If
End Sub

Edit:
Remove Color codes

I think a better solution would be to gray out my custom toolbar if no workbooks are open.

You could simply have your code check the workbooks.count and react accordingly if it's 0.

Rick, please don't add colour to the code. Your choice makes it difficult to read & the tags make copying & pasting to the VB Editor more work

romperstomper
Thank you.

royUK
Fixed and thanks for the tip.

Hmmm.
Not sure how to deal with this.
No workbook open returns "1" from Workbooks.Count
One workbook open returns "2" and so on...
With that I tried the following modified code:

Option Explicit

Sub Start()
    If Workbooks.Count > "1" Then
        'MsgBox Workbooks.Count 'for testing
        If Left(ActiveWorkbook.Name, 6) = "AS9102" Then
            GmMotDataCollectorForm.Show
        Else
            MsgBox "You must have an active AS9102 excel file open." & _
                   vbCrLf & _
                   "Example name: ""AS9102 4502730B Y 135-1 100710.xls""" & _
                   vbCrLf & _
                   "Current file name: " & ActiveWorkbook.Name
        End If
    Else
        MsgBox "You must have an active AS9102 excel file open." & _
               vbCrLf & _
               "Example name: ""AS9102 4502730B Y 135-1 100710.xls""" & _
               vbCrLf & _
               "Current file name: " & ActiveWorkbook.Name
    End If
End Sub

As long as there is an active workbook it works, if there is no workbook it fails at the msgbox.
Same error.

Run-time error '91':
Object variable or with block variable not set

Im guessing I cant pass a message when no workbooks are open?


Edit:
Just hit my brain stem.
I have a workbook always open, personal.xls, hidden.
The logical answer (were working with my brain on this) is to do nothing if there is no open workbook.