Olá, estou executando o código abaixo em uma guia e queria executá-lo em todas as guias do Excel.
Sub TestFormulas()
Dim LResponse As Integer
For Each cell In Range("C4:AF134")
If cell.HasFormula = False Then
cell.Interior.ColorIndex = 15
End If
Next
End Sub