Macro to tell people if a number is not negative

[tonywatsonhelp]

Hi Everyone,
I need a macro that will run when data is input into cells D6:D16
that will check if a number is negative, i.e -21

If it is not i need a message box to popup saying "Numbers Should be Negative!" but not stop a posative number being added.
please help if you can.

Thanks
Tony

 

[Joe4]

Right-click on the Sheet tab name at the bottom of the screen, select "View Code", and paste this code into the resulting VB Editor window:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rng As Range
    Dim cell As Range
    
    Set rng = Intersect(Target, Range("D6:D16"))
    
    If rng Is Nothing Then Exit Sub
    
    For Each cell In rng
        If cell.Value >= 0 Then
            MsgBox "Entry in cell " & cell.Address(0, 0) & " should be negative!", vbOKOnly, "WARNING!"
        End If
    Next cell
        
End Sub

The code will work automatically, as long as Macros/VBA are enabled.