How would I implement VBA to clear the contents of a range that contains
merged cells? The following code results in a runtime error '1004' :
"Cannot change part of a merged cell."

************************************************** ***

If Union(ActiveCell, Range("ProbArea")).Address =
Range("ProbArea").Address Then

Ans = MsgBox("Do you want to CLEAR the contents of CURRENTLY
SELECTED CELL'S ROW?", vbYesNo)

If Ans = vbNo Then
Exit Sub
End If

If Ans = vbYes Then

Application.ScreenUpdating = False

ActiveCell.EntireRow.Select
Selection.Cells(1, 1).Select
ActiveCell.Offset(0, 0).ClearContents
ActiveCell.Offset(0, 1).ClearContents
ActiveCell.Offset(0, 2).ClearContents
ActiveCell.Offset(0, 3).ClearContents
ActiveCell.Offset(0, 4).ClearContents
ActiveCell.Offset(0, 5).ClearContents
ActiveCell.Offset(0, 6).ClearContents

Application.ScreenUpdating = True

End If

*********************************************

Offset (0, 1), (0, 2), (0, 3) and (0, 4) are merged cells.