Belleke
Well-Known Member
I have
I want to change ws.Rows(fnd.Row).ClearContents so it only clears cells C to W
Thanks to have a look at it
Code:
Set Rng = [ANRs]
Set fnd = Rng.Find(What:=T_26.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not fnd Is Nothing Then smessage = "Afrekenen, ben je zeker" + "?"
If MsgBox(smessage, vbQuestion + vbYesNo, "Bevestig Afrekenen") = vbNo Then GoTo oops
ws.Rows(fnd.Row).ClearContents
Thanks to have a look at it