I have a routine that highlights a range and removes any entries in
that range. For some reason the ClearContents command halts processing
AFTER it has performed the removal of entries. If I comment that line
out the routine runs as expected.

The code is
Sub PoP5()
If Sheets("Intro").Range("h16").Value = False Then
Sheets("Labor").Select
Worksheets("Labor").Unprotect Password:="xxx1"
Range("ba4:ba53").ClearContents
Columns("AU:BB").Select
Selection.EntireColumn.Hidden = True
{snip}

With the commented out, the columns hide and processing continues;
with the ClearContents active the entries are removed but processing
stops. I tried breaking that line into two, comme ca:
Range("ba4:ba53").Select
Selection.ClearContents
....to no avail, the same thing happens.

Anyone have thoughts for the cause, or a workaround?

Thanks