Sub demoTest()
MergDemo "A1:A3"
End Sub
Sub MergDemo(target As String)
With Range(target)
.Merge
.Interior.Color = vbCyan
End With
End Sub

"Woodi2" wrote:

How do i merge cells using code, is it possible?

I would like to mergecells as follows
ActiveCell.Offset(0, 8) and merge it with the 2 cells below, if poosible,
also change the colour to cyan.