Boa tarde Pessoal
Preciso muito da ajuda de vocês
Sub teste() For Each cl In Sheets(1).UsedRange.Cells If cl.Value = "BRADESCO" Then cl.Font.Bold = True End If Next cl End Sub
Anderson Diniz