Programmatically Erase Data in Merged Cells

[Anne Troy]

ActiveSheet.Unprotect Password:=""
    Range("rng1").ClearContents
    ActiveSheet.Protect Password:=""