Hi Calle,

See my response in your earlier thread.

However, more generally:

'=============
Public Sub Tester()
Dim rng As Range
Dim rCell As Range

Set rng = Range("A1:A10")

For Each rCell In rng.Cells
With rCell
If .MergeCells Then
.MergeArea.ClearContents
Else
.ClearContents
End If
End With
Next rCell

End Sub
'<<=============


---
Regards,
Norman



"Calle" wrote in message
...
Is there a VBA script to delete content in merged cells?