Runtime Error

[ssjody]

Rookie here: Not sure what I'm doing wrong. I get a Runtime error 424
Object required on the wp.Rows(fnd.Row).Delete statement. Can someone
tell how to fix this? Thanks Jody


Private Sub btnDelete_Click()
'Search all Cells on the sheet for Me.cboPolkInOldNotInNew.Text
Dim wp As Variant
Set wp = Worksheets("PolkToCpMap").Range("PolkToCpMapNames")
fnd = wp.Find(Me.cboPolkInOldNotInNew.Text)
'The find function returns a Range if the text is found or Nothing if
it is not.
If fnd = "" Then
MsgBox "Text not Found"
Else
wp.Rows(fnd.Row).Delete
End If
End Sub

 

[Norman Jones]

Hi SS,

Try:

'==============>>
Private Sub btnDelete_Click()
Dim wp As Range
Dim fnd As Range

Set wp = Worksheets("PolkToCpMap"). _
Range("PolkToCpMapNames")

On Error Resume Next
fnd = wp.Find(Me.cboPolkInOldNotInNew.Text)
On Error GoTo 0

If fnd Is Nothing Then
MsgBox "Text not Found"
Else
wp.Rows(fnd.Row).Delete
End If

End Sub
'<<==============