Message Box popup if cell is negative

[jrisebo]

Im trying to get some code to work for a range of cells being negative. Lets say A1 to A5 are the cells to check, I want a message box to pop up saying "Hey, one of your values is negative" The values wont be data entry, but a cell that is calculated based on some other entry.

 

[Sektor]

Sub FFF()
  If Application.Min([A1:A5]) < 0 Then MsgBox "One of the values is negative", vbExclamation
End Sub

 

[jrisebo]

Thanks this worked.

Anyway to only get it to show up once per opening of the file, i.e. "disable until nextime I open file" checkbox?

 

[Skyybot]

Place in ThisWorkbook code module. - Copied from @Sektor

Private Sub Workbook_Open()
 If Application.Min([A1:A5]) < 0 Then MsgBox "One of the values is negative", vbExclamation
End Sub