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 
  
........