Message on a specific value on a range of cells

[Juls1]

I want a message to pop up if the value on any cell in of a range of cells is equal to 'False"

at the moment I only can run it if one cell is equal to false. but I want to add the condition so it includes if any cell in a range (A:1 to A:10) is equal to 'false'

Private Sub Worksheet_Calculate()
If Range("BP7").Value = False Then
MsgBox "Update The Schedule Start time"

End Sub

Thanks for the help

 

[nemmi69]

Try

Private Sub Worksheet_Calculate()
If Not Intersect(ActiveCell, Range("A1:A10")) Is Nothing Then
    MsgBox "Update The Schedule Start time"
End If
End Sub

or to include BP7

Private Sub Worksheet_Calculate()
If Not Intersect(ActiveCell, Range("A1:A10")) Is Nothing or Not Intersect(ActiveCell, Range("BP7")) Is Nothing Then
    MsgBox "Update The Schedule Start time"
End If
End Sub

 

[Fluff]

How about

Private Sub Worksheet_Calculate()
   If Application.CountIf(Range("A1:A10"), False) > 0 Then
      MsgBox "Update The Schedule Start time"
   End If
End Sub

 

[Juls1]

Thanks you so much... it works perfectly. I have being going around with this for few days now...

 

[Fluff]

Glad we could help & thanks for the feedback