One mo

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).

Darin Kramer wrote:

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

*** Sent via Developersdex http://www.developersdex.com ***

--

Dave Peterson