Run-Time error '28' out of stack space, Run-Time error '2147417848 (80010108)': Method 'Value' of object...
1
I'm get the subject errors. This code worked fine in Excel 2010, however I now have Excel 2013.The code is as follows can some body please help me I'm stumped. Code is as follows. Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range, r As Range, rv As Long If Not Intersect(Target, Range("C77:AD81")) Is Nothing Then Set rng = Intersect(Target, Range("C77:AD81")) For Each r In rng 'Peak Flow Doctor Warning Select Case r.Value Case 180 MsgBox "''PEAK FLOW CRITICAL AT 180L/MIN''" & vbCrLf & "''PREDNISONE PROBABLY REQUIRED''" & vbCrLf & "''MAKE DOCTOR'S APPOINTMENTS ASAP''", vbInformation, "WARNING"