testar conteúdo da célula

[serbar]

Preciso configurar a cor da fonte da célula dependendo do conteúdo da mesma, em um intervalo

Para isso construí um loop (ver código abaixo)

O prloblema é que o IF não funciona pois está comparando o conteúdo da variável que contem o endereço e não o valor da célula

como consigo isso ?

código :

rangeplanilha = "B" & intervalo
intervalofinal = intervalo + 5
rangefinal = rangeplanilha & ":AA" & intervalofinal
Range(rangeplanilha).Select

' BRT

If Left(rangeplanilha, 1) = "Z" Then
'
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.Color = RGB(255, 0, 0)
.Size = 16
.Bold = True
End With

' dados da linha

Range(rangeplanilha).Select

With Selection.Font
.Color = RGB(255, 0, 0)
.Size = 17
.Bold = False
End With

Else

' Não BRT

Range(rangeplanilha).Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.Color = RGB(0, 0, 0)
.Size = 14
.Bold = False
End With

........