Merge cells

Parameters

Macro Title:
Worksheet name:
Merge cells:
Comment:

'

Sub Merge_Cells()
'merge range A2:D2 in a worksheet named Sheet1

Worksheets("Sheet1").Range("A2:D2").Merge

End Sub