Value of Public Variable Not Being Passed

[Ark68]

I have oBP declared publically as an object.

This code sets it ..

Private Sub tglb_cue_gm_Click()
    With Me
        Set oBP = .tglb_cue_gm
        sRPT = "CUE-GM.docx"
        button_check ' oBP, sRPT
    End With
End Sub

But when it reaches this code to use is it, I get an error (red line) "Object variable or WIth Block variable not set." It appears to be caused because oBP is empty.

Sub button_check()  '(ByVal oBP As Object, sRPT As String)

'oBP = userform toggle button name (from toggle button click event)
'sRPT = report (.docx) filename (from toggle button click event)

    If bpb = 0 Then 'bypass if bypass flag = 1
        With uf4_works 'the userform
            With oBP
                'this allows a previouly created report to be viewed.
                If .BackColor = RGB(0, 153, 211) And .Value = True Then
                    If DocOpen(sRPT) = False Then
                        Set WordApp = CreateObject("word.Application")
                        WordApp.Documents.Open path_name & sRPT
                        WordApp.Visible = True
                        Set WordApp = Nothing
                        .Value = True
                    End If
    ...

Any thought on what needs to be corrected?

 

[Fluff]

What is oBP declared as?
Where is it declared?
Are both sets of code in the same module?
What is .tglb_cue_gm?

 

[Ark68]

Hi Fluff

oBP is declared as Object
It is declared in a module that triggers with opening of the application basically. I have all my public variables declared at the very start of my project.
No .. they are in different modules.
.tglb_cue_gm is a toggle button on a userform that is open

 

[Fluff]

How exactly is oBP declared?
& is the declaration in a standard module?

 

[Ark68]

STandard module,

Public oBP As Object, sRPT As String

 

[Fluff]

In that case your code works for me.
From the snippet you've posted this is redundant

With uf4_works 'the userform

What happens if you add this

                Debug.Print oBP.Name

To the beginning of the sub

 

[Ark68]

It appears I'm getting the same error. "Object Variable or With Block Variable not set" when it encounters the Debug line.

 

[Fluff]

Is there any other code in the

Private Sub tglb_cue_gm_Click()

event that you haven't shown?
Also is there any other code in the second sub before the code you posted?

 

[Joe4]

That same error message also appears when you do not properly close out all With, If/Then, or Loop statements.
However, we cannot tell if that what might be going on because you only posted part of your "Sub button_check()" procedure.
If you post the whole thing, we can help verify that.

 

[Ark68]

Found the problem Fluff!!
I had oBP declared twice. Both the same, but enough to cause problems. I would have thought Excel would have used the last declaration it found, and as they were the same, it wouldn't made a difference. Not the case I guess.

Thanks folks for your support!