Olá, use isto:

Private Sub Worksheet_Change(ByVal Target As Range)
If [I7].Value = "não" Then
MsgBox "Escreva aqui sua mensagem", vbInformation
Else
'MsgBox "Escreva aqui sua mensagem", vbInformation
End If
End Sub

Apenas salientando que, na resposta do colega boobymcgee, enquanto o valor da "I7" for "não" a Msgbox continuará aparecendo sem parar.

Caso a Msgbox deva aparecer apenas no momento da mudança do valor, faça:

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "I7" And [I7].Value = "não" Then
MsgBox "Escreva aqui sua mensagem", vbInformation
Else
'MsgBox "Escreva aqui sua mensagem", vbInformation
End If
End Sub

Funcionou pessoal!
Muito obrigado.