VBA to create MsgBox based on Formula result

Hi All.

I have an Excel file where users can select from various dropdown lists (using data validation)

I have year and month drop downs in cells F12 (Month) and F13 (Year) and on a separate tab I have a list of Year and Month combinations for which we do not have rates.

I have entered a vlookup (G13) to check for the date combination and return "1" if it is found - I would like a Massage Box to pop up if the date is found in this list ie if the vlookup returns "1"

I have managed to get the code below to work but only when "1" is hard typed into the cell - it doesn't work when the formula result = 1.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Range
Set A = Range("G13")
If Intersect(Target, A) Is Nothing Then Exit Sub
If Target.Value = 1 Then
MsgBox "Rates for this broadcast period are not yet available"
End If
End Sub

Does anyone have any idea how I can get it to work from the formula?

Much appreciated!

That worked perfectly!
Thank you!!!

One more question - I need to apply the same thing to another set of dates further down on the page (they are completely unrelated), I have used the same code with updated cell references and I am getting the error message:

Compile Error:
Ambiguous name detected: Worksheet_Change

I pasted the code onto the same VBA sheet as the last one as they are both running from the same worksheet - I'm guessing this may be the issue somehow.

Again any help is greatly appreciated!

Thanks Joseph,

I have edited the code so it now looks like this....

Please Login or Register  to view this content.

The first bit is still working fine but it doesn't seem to be picking up the changes to the second date formula.

Apologies for being so clueless about all this! It's not something I have had much experience with.

Thanks,

Carrie