With Sheets("Highlight Markers").Range("A1") x = InStr(1, .Value, "highlight", vbTextCompare) If x > 0 Then .Characters(Start:=x, Length:=9).Font.FontStyle = "Bold" End With
With Sheets("Highlight Markers").Range("A1") x = InStr(1, .Value, "highlight", vbTextCompare) If x > 0 Then .Characters(Start:=x, Length:=9).Font.FontStyle = "Bold" End With
p45cal
Everyone: If I've helped and you can't be bothered to acknowledge it, I can't be bothered to look at further posts from you.
Posting Permissions
Reply With Quote