This should cover all the parameters you specified
Sub Validate_Special()
Dim ws As Worksheet: Set ws = Sheets("Sheet1")
Dim objRegExp As Object
Dim regExp_Matches
Dim c As Range, rng As Range
Dim LR As Long
Set objRegExp = CreateObject("vbscript.regexp")
objRegExp.Global = True
objRegExp.Pattern = "[^a-z^A-Z]"
LR = ws.UsedRange.Rows.Count + 1
Set rng = Union(ws.Range("A1:B" & LR), ws.Range("E1:E" & LR), ws.Range("H1:H" & LR), ws.Range("J1:J" & LR))
For Each c In rng
If Len(c) > 0 Then
Select Case c.Column
Case 1 To 2
Set regExp_Matches = objRegExp.Execute(c.Value)
If regExp_Matches.Count <> 0 Then
'string not alpha
c.Interior.Color = vbYellow
End If
Case 5
If c <> "X" And c <> "x" And Len(c) <> 0 Then
c.Interior.Color = vbYellow
End If
Case 8, 10
If IsNumeric(c) Then
If CDbl(c) - CInt(c) <> 0 Then
c.Interior.Color = vbYellow
End If
Else
c.Interior.Color = vbYellow
End If
End Select
End If
Next c
End Sub
Bookmarks