MsgBox not functioning

[paru]

Haven't played in VBA forever, so I need a little help please.

Workbook Tab Name is "collateral"
My target cell is "I36"
This cell also has a defined name of "Coll_Value"
When the user tabs in to cell I36 on this sheet, I want a message box to popup.
I have the MSG Box seperate, defined as "MsgBox_Flood"

The code I am using is shown below. When I click in to cell I36, the box does not appear as expected:

Sub MsgBox_Flood2()
'Avtivate the cell warning / reminder to complete a flood determination prior to closing the loan

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
If Not Intersect(Target, Sheets("Collateral "), Range("I36")) Is Nothing Then
Call MsgBox_Flood
End If
End If
End Sub

An option for this is to simplfy it by having the MsgBox launch if the value in I36 is greater than 1. I tried that, too, and it's still not working so I am missing something obvious.

TIA for guidance.

 

[jasonb75]

The 3 things that stand out.

1:- Using Selection.Count instead of Target.Count (could be preventing the code from reaching the 'Call' line).
2:- Calling MsgBox_Flood but your procedure is named MsgBox_Flood2 (should cause an error, but only if the code reaches the 'Call' line as noted above).
3:- MsgBox_Flood2 is an empty procedure (nothing to do).

If you post more code, please use the VBA tags to separate the code from the rest of your post.