Hi all,

I am very new to Excel Programming. I am trying to get the cells B2:B10, C2:C10, D2:D10 and E2:E10 to create a pop up message when a cell reaches/exceeds 100%.

I have managed to do this for one cell:

Private Sub Worksheet_Calculate()

If Sheets("Total Percentages").Range("B2").Value > 0.99 Then

MsgBox "Over 100%!", vbOKOnly

End If

End Sub

But whenever I try and set it to a range it won't work (Error 13 has appeared)? What do I need to do to set it to a range of cells?