Excel XP error message Run Time Error 91

When executing the following code.

Dim WkbName As String

WkbName = Application.CommandBars.ActionControl.Parameter
If WkbName = "" Or WkbName = "ThisWorkbook" Then WkbName = ThisWorkbook.Name

I get the following error message

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

COuld someone please help me correct the problem or help me with the syntax

The Parameter property only appears to apply to a specific Control on a
specific Commandbar. Therefore, your code would read something like:
WkbName = Application.CommandBars("name".ActionControl("name').Parameter
subtituing the real names where "name" is indicated

"Lenny" wrote:

> When executing the following code.
>
> Dim WkbName As String
>
> WkbName = Application.CommandBars.ActionControl.Parameter
> If WkbName = "" Or WkbName = "ThisWorkbook" Then WkbName = ThisWorkbook.Name
>
> I get the following error message
>
> Run-time error '91':
> Object variable or With block variable not set
>
> COuld someone please help me correct the problem or help me with the syntax
>
>
>