Run Error 13

[HYKE]

Dear All,

What seems to be wrong with this code? It is giving me a runtime error 13????

Private Sub CommandButton3_Click()
 Dim r As Long
    With Sheet1
         r = Application.Match(MRITRBox.Value, .Range("G:G"), False)
        .Cells(r, 20).Value = MRITRUpd.Value
        
        Range("a1").Select
       
    End With
End Sub

 

[Norie]

Could it be because of what I mentioned - MATCH wasn't finding a match.

There could be a no of reasons for that, and a no of possible fixes - see jonmo's post.