If Then Macro

Special thanks to tigeravatar on helping me with my last Macro. After my initial post, I figured out the what was wrong with my last macro.

With regards to this current project, I am trying write a simple if else statement that is trying to state that if cell "I19" is selected the message "enter number of property address" is display and If cell "I15" is selected then the message "enter total commitment amount" pops up. I am just not remembering what statement I need to make it work. Currently I know that this macro applies to every other cell.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    If Intersect(Target, Range("I19")) Is Nothing Then
    MsgBox "Cell " & Target.Address & " is selected" & vbCrLf & _
    "Enter Total Commitment Amount", vbExclamation + vbOKOnly, "ATTENTION"
    Else
    MsgBox "Cell " & Target.Address & " is selected" & vbCrLf & _
    "Enter number of Property Address", vbExclamation + vbOKOnly
    
    End If

End Sub

Hi,

try this

Sub worksheet_selectionChange(ByVal target As Range)

If target.Address = "$I$19" Then MsgBox "Cell " & Target.Address & " is selected" & vbCrLf & _
    "Enter Total Commitment Amount", vbExclamation + vbOKOnly, "ATTENTION"
If target.Address = "$I$14" Then MsgBox "Cell " & Target.Address & " is selected" & vbCrLf & _
    "Enter number of Property Address", vbExclamation + vbOKOnly

End Sub

You can close the thread by marking your thread os solved.
You can se how in the forum rules, theres a link right below my post