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