I am trying to display a userform that I have designed when the Yes button is selected but I keep getting the error message 'Run-time error '438': Object doesn't support this property or method'.

He is my code:

Private Sub cbSuppliersInv_AfterUpdate()
If cbSuppliersInv.Enabled Then
If cbSuppliersInv.Value = True Then
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to update supplier's invoice details?"
Style = vbYesNo + vbInformation + vbDefaultButton2
Title = "Please Confirm"
Help = "DEMO.HLP"
Ctxt = 1000
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.
    frmSuppliersInv.Show
Else ' User chose No.
    MyString = "No" ' Perform some action.
End If
End If
End If
Worksheets("STERLING TRADED DETAILS").Select
End Sub

When I debug the code 'frmSuppliersInv.Show' is highlighted in yellow. Can anyone help me please?

Hi Fin

I tried to recreate the error, but couldn't. The code is working fine.


Shasur

Can you hit the function key F8 until you encounter the error, the line that fails is highlightedto be highlighted in yellow. VBA automatically goes to the userform.show line if an error like this occurs, however, this is not the failing line.

I am guessing you have some code embedded in the userform initialize event that is failing rather than the statement that is calling it.


Cheers

Matt