VBA to Merge Cells

[Darin Kramer]

Hi there,

Is there VBA that can merge cells on a row by row basis over a specified
column?

Eg a1,b1,c1 need to be merged
a2,c2,b2, need to be merged
etc etc to say line 200

Thanks

D

 

[Guest]

Sub Yourmerge()
For i = 1 To 200
Range("A" & i & ":C" & i).MergeCells = True
Next i
End Sub

Stefi

 

[Darin Kramer]

Thank you SO SO MUCH!!!! works perfectly

 

[Dave Peterson]

One more:

Option Explicit
Sub testme()
Application.DisplayAlerts = False
With ActiveSheet.Range("a1:B200")
.Merge Across:=True
End With
Application.DisplayAlerts = True
End Sub

You also have another response at your other post (non-VBA).