Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range Dim rInt As Range Dim rOut As Range Set rInt = Intersect(Target, Range("B3:B24")) If rInt Is Nothing Then Exit Sub For Each cell In rInt.Cells If cell.Value < 2 Then If rOut Is Nothing Then Set rOut = cell Set rOut = Union(rOut, cell) End If Next cell If Not rOut Is Nothing Then rOut.Select MsgBox "Restock selected item(s)" End IfEnd Sub
I think that I'm pretty savvy when it comes to Microsoft Word Documents. However, when it comes to spreadsheets, I have never really excelled.