Range Constraint 'If' Statement

[blincan]

In order for my Warning box to show i have a VBA code that looks like :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$19" Then

Application.EnableEvents = False

If Target.Value > 150000 And Target.Value < 230000 Then

warning1.Show

End If

If ((Target.Value > 500000 And Target.Value < 540000) Or (Target.Value > 2600000 And Target.Value < 2700000)) Then

warning2.Show

End If

Application.EnableEvents = True

End If
End Sub
I need to change the numerical check value to a group of selected cells... Like -- if Target.Value = 'any cells in range A1:A15' then warning1.show

Is this possible?

[ChemistB]

Try

Please Login or Register  to view this content.

where A19,A23,B15 are your cells of interest. Does that work for you?