merge cells

[Woodi2]

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.

 

[Jacob Skaria]

Range("A1:A3").Merge
Range("A1:A3").Interior.Color = vbCyan

If this post helps click Yes

 

[Patrick Molloy]

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