microsoft.public.word.vba.general

Hi
I need this macro to merge cells and remove all text.

**********************************************
Sub MergeRangeAndRemoveText()
Dim rng As Range

Set rng = ActiveDocument.Range _
(Start:=ActiveDocument.Tables(1).Cell(5, 3).Range.Start, _
End:=ActiveDocument.Tables(1).Cell(6, 5).Range.End)

rng.Cells.Merge

rng.Text = ""
End Sub
**********************************************

The merge works fine, but the text is not removed.

Thanks
Harold