Sub message()
Dim i As Long, j As Single, k As Long
For i = 17 To Range("G" & Rows.Count).End(3).Row Step 9
For j = i To i + 5
If IsNumeric(Cells(j, 7)) And Cells(j, 7) > 12 Then MsgBox (Cells(j, 7).Address)
Next
Next
For k = 25 To Range("C" & Rows.Count).End(3).Row Step 9
If Cells(k, 3) > 60 Then MsgBox (Cells(k, 3).Address)
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long, j As Single, k As Long
If Intersect(Target, Range("E:E")) Is Nothing Then Exit Sub
For i = 17 To Range("G" & Rows.Count).End(3).Row Step 9
For j = i To i + 5
If IsNumeric(Cells(j, 7)) And Cells(j, 7) > 12 Then MsgBox (Cells(j, 7).Address)
Next
Next
For k = 25 To Range("C" & Rows.Count).End(3).Row Step 9
If Cells(k, 3) > 60 Then MsgBox (Cells(k, 3).Address)
Next
End Sub