Minha primeira pergunta é:

Se vc está usando formatação condicional, porque fazer isso via macro? Ou seja, porque ja não deixa a planilha com a formatação condicional?

Em todo caso, o motivo de estar lento é que vc está criando, a meu ver - desnecessariamente, uma regra de formatação condicional para cada linha.

Veja esse código abaixo:

Sub atual_GT()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    Range("C3:BN1600").Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=$BU3"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = False
    End With
   Selection.FormatConditions(1).Interior.Color = vbYellow
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

Creio que ele faça a mesma coisa, mas com uma formatação condicional única para todo o range que vc precisa.

O gtsalikis tem toda razão. Veja como com 1 fórmula em 1 área demarcada vc mata o problema.

Abs,

Minha primeira pergunta é:

Se vc está usando formatação condicional, porque fazer isso via macro? Ou seja, porque ja não deixa a planilha com a formatação condicional?

Em todo caso, o motivo de estar lento é que vc está criando, a meu ver - desnecessariamente, uma regra de formatação condicional para cada linha.

Veja esse código abaixo:

Sub atual_GT()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    Range("C3:BN1600").Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=$BU3"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = False
    End With
   Selection.FormatConditions(1).Interior.Color = vbYellow
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

Creio que ele faça a mesma coisa, mas com uma formatação condicional única para todo o range que vc precisa.

Bom Dia gtsaliki!

Como diria um amigo meu: vcs sao monstros no Excel!. Tanto o seu codigo como simplesmente uma formula como a dica do "mandrix.xls" resolve o meu problema. Estava usando macro porque o usuario incluia novas linhas e como eu usava uma regra de formataçao pra cada linha, essa nova linha ficava sem a formataçao. Ha tempo precisava dessa soluçao, se soubesse teria me cadastrado nesse Forun antes. Valeu mesmo!,

O gtsalikis tem toda razão. Veja como com 1 fórmula em 1 área demarcada vc mata o problema.

Abs,

Bom dia "MANDRIX.xls"!

Simplesmente fantastico. resolveu meu problema. Valeu mesmo!