Font.Size

[crmpicco]

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

[BlueCactus]

is there a shorter way to write this?



with Range(sRange)
If Trim$(.Text) <> "" And .Font.Size = "11" Then .Interior.ColorIndex = iColour
end with


Not too much shorter, but a little less repetitive. Also knocked out the .Font.Size <> "14" since that seems redundant.