How to show MsgBox if a any cell value is > 17 in a range

Try this

Sub Button1_Click()
    Dim rng As Range, c As Range
    Set rng = Range("C7:G13")
    For Each c In rng.Cells
        If c.Value > 17 Then MsgBox c.Address & " is greater then 17"
    Next c
End Sub