Testing multiple cells for any text in cell

[bergen]

I am trying to fill some autoshapes with color if any text is entered into specific cells. This works just fine if numbers are entered, but doesn't work if letters are used, I have looked at some possible solutions but they all seem very complex, is there any way to easily transform below into testing for letters rather than numbers? (I have a very big code to correct)

Here is part of the code (which only Works with numbers):

If Range("C23") Or Range("C60") Or Range("C82") Or Range("C104") <> "" Then
ActiveSheet.Shapes("Cirkel 8").Fill.ForeColor.RGB = vbGreen
ActiveSheet.Shapes("Cirkel 9").Fill.ForeColor.RGB = vbGreen
ElseIf Range("C11") Or Range("C48") Or Range("C70") Or Range("C92") <> "" Then
ActiveSheet.Shapes("Cirkel 8").Fill.ForeColor.RGB = vbYellow
ActiveSheet.Shapes("Cirkel 9").Fill.ForeColor.RGB = vbYellow
Else
ActiveSheet.Shapes("Cirkel 8").Fill.ForeColor.RGB = RGB(166, 166, 166) 'grey
ActiveSheet.Shapes("Cirkel 9").Fill.ForeColor.RGB = RGB(166, 166, 166) 'grey

 

[FormR]

Hi, you need to repeat the logical test in each Or section.

For example:

If Range("C23") <> "" Or Range("C60") <> "" Or Range("C82") <> "" Or Range("C104") <> "" Then

 

[Peter_SSs]

You may also be able to use ..

If Len(Range("C23") & Range("C60") & Range("C82") & Range("C104")) Then

 

[bergen]

Thank you very much for the replies both of you. FormR for making me understand my error and Peter_SSs for providing a sharper alternative!