With Application.FindFormat
.Clear
.Interior.Pattern = xlSolid
.Interior .Color = 16764057
.Locked = True
End With
Range("F5:F" & Range("F" & Rows.Count).End(xlUp).Row).Replace What:="", _
Replacement:="0%", LookAt:=xlWhole, SearchFormat:=True
Application.FindFormat.Clear