condição com valor vba

condicional para mudar fonte e fundo de acordo com o valor

Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets(1).Cells(1, 1) = celula Then
 
    Sheets(1).Cells(1, 1).Font.ColorIndex = 1
    Sheets(1).Cells(1, 1).Interior.ColorIndex = 0
 
    Else
    Sheets(1).Cells(1, 1).Font.ColorIndex = 2
    Sheets(1).Cells(1, 1).Interior.ColorIndex = 1
 
    End If
End Sub