Clear Contents Macro for Merge Cell (Compile error : Expected End Sub)

Hi everybody :-)

I'm trying to use the "clear contents macro" for merge cell,
but I keep receiving this "compile error : Expected End Sub" error.

FYI, I have named my merge cells to "myMergedCells"

Thank you in advance :-)

Please Login or Register  to view this content.

PHP Code: 

Private Sub CommandButton4_Click()

End Sub    '<=|'

Sub ClearMerged()
'Loop through Named Range, clearing contents'
   For Each m_cell In Range("myMergedCells")
      m_cell.MergeArea.ClearContents
   Next
End Sub 


Thank you guys,

Both formula can work :-)

Thanks again