Popup if value in range is less than 5%

[cs8181]

I have a range of cells in row 39, with calculated percentages. If a change is made that makes any cell in the range fall below 5%, I would like a popup stating "Exceeded 5% Availability".

This is the VBA code I'm using so far with no result.

Private Sub Worksheet_Calculate()    If Range.("VA39:ZZ39") < 5 Then
        MsgBox "Busted 5% Availability"
    End If
End Sub

 

[cs8181]

Data Validation worked great. Thank you.