crmpicco
06-02-2005, 06:39 AM
is there a shorter way to write this?
If Trim$(Range(sRange).Text) <> "" And Range(sRange).Font.Size <> "14" And Range(sRange).Font.Size = "11" Then
Range(sRange).Interior.ColorIndex = iColour
End If
If Trim$(Range(sRange).Text) <> "" And Range(sRange).Font.Size <> "14" And Range(sRange).Font.Size = "11" Then
Range(sRange).Interior.ColorIndex = iColour
End If