Excel VBA Run-Time13 error

[Pianoman23]

Can anyone help with this error. The code I'm using is as follows:

Private Sub CommandButton1_Click()
DrugUserForm.Show
End Sub


Sometimes it works; sometimes it produces a Run-tine '13' error. Type mismatch.

It's driving me mad!!!

Any thoughts?

 

[Pianoman23]

If a cell contains "" it's not blank and "" is greater than zero. Does this test work for you?

If IsNumeric(Sheet6.Cells(r, "AA").Value)

I've changed the code to
If IsNumeric(Sheet6.Cells(r, "AA").Value) >0 then...........

AND IT WORKS!!!!

Thank you so much for all your help.

 

[Andrew Poulsom]

You don't need >0.