If range contains an empty cell, display msgbox & exit s

[Berko]

I have the following code in the middle of a routine. What I want is for it to check each cell in a range and if there is an empty one, bring up the message box and then stop executing code. It seems to bypass this whole bit entirely.

        EmptyPaid = 0
        For i = 1 To EndSumR - BeginSumR
            If ActiveCell.Value = "" Then
                EmptyPaid = EmptyPaid + 1
            End If
        ActiveCell.Offset(1, 0).Select
        Exit For
        Next i
        If EmptyPaid > 0 Then
            MsgBox ("There is an empty cell in the Paid column for this deposit." & Chr(13) & "Please correct and try again.")
            Exit Sub
        Else
        [continue with the rest of the routine]

The check can't be done any earlier than this because before this is where I figure out the range that I need to check for empty cells. Zero value is OK, I just need to make sure that there is something in every cell in the range.

 

[Berko]

Hello, McFly!!!

I found the answer in another post. I had the sheet protected.

Sheets("Sheet1").Unprotect
ActiveCell.Font.Bold = True
Sheets("Sheet1").Protect

This fixed it right up.