Frncis
Member
The current code below:
Runs as expected, however, if F:F & No is changed to Z:Z & Yes. It does not hang up, but does not give any response. Could you explain what I am doing wrong?
I am certain it is something very simple, that i am missing.
Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'The code below is a reminder to enter data in the Referral Workbook.
If Intersect(Target, Sh.Range("F:F")) Is Nothing Then Exit Sub
If Target.Value <> "No" Then Exit Sub
If ReferralsCalled = False Then
'Shows a 3 line message box.
MsgBox "Check to verify veteran data is entered in FY ## REFERALS." & vbCr & _
"It's critical that the veteran data is captured." & vbCr & _
"You have entered No into cell" & Target.Address, vbInformation, "Vocational Services Database"
Call Referals
End If
End Sub
I am certain it is something very simple, that i am missing.
Last edited by a moderator: