Sub checar()
If Range("B1") <> 1 Then
msgBox "é diferente de 1"
End If
End Sub

Se eu quiser colocar as outras células do exemplo acima junto com a B1?

alanisfcsm,

Boa tarde!

Sub checar()
     'Se todas as condições tiverem que ser verdadeiras
     If Range("B1").Value <> 1 And Range("C1").Value <> 1 And Range("D1").Value <> 1 And Range("E1").Value <> 1 And Range("I1").Value <> 1 Then
          msgBox "é diferente de 1"
     End If
End Sub

Sub checar()
     'Se apenas uma das condições tivere que ser verdadeira
     If Range("B1").Value <> 1 OR Range("C1").Value <> 1 OR Range("D1").Value <> 1 OR Range("E1").Value <> 1 OR Range("I1").Value <> 1 Then
          msgBox "é diferente de 1"
     End If
End Sub