[vba]
Dim c As Range
For Each c In Selection
If Len(c.Value) - Len(Replace(c.Value, "/", "")) = 2 Then
c.Interior.Color = vbRed
Debug.Print c.Row
End If
Next c
[/vba]
[vba]
Dim c As Range
For Each c In Selection
If Len(c.Value) - Len(Replace(c.Value, "/", "")) = 2 Then
c.Interior.Color = vbRed
Debug.Print c.Row
End If
Next c
[/vba]
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
Posting Permissions
Reply With Quote