Search For Selected Text In Column Then For Errors Along Active Row

Heres the code:

I'm having trouble with the With statement near the bottom for the active sheet, effectively the row search. (Would be great if the font can be changed to red as well as text "Withdrawn").

Option Explicit
Private Sub CommandButton1_Click()

Dim search As String 'stringy
Dim ws As Worksheet 'worksheety
Dim Answer As String 'answery
Dim r As Range 'rangey
search = Range("b7").Text 'texty
Dim cell As Range
cell = Range("4:10")

Application.EnableEvents = True

[Code] .......