Option Explicit
Sub testme()
Dim myRng As Range
Dim myCol As Range
Set myRng = Selection
For Each myCol In myRng.Columns
myCol.Merge
Next myCol
End Sub

Select your range first, then run the macro.


bbelly wrote:

The button "merge across" allows you to pick a group of cells, and
merges them along rows.

I need to pick a group of cells and have them merge in columns.

Perhaps someone has seen such a need, and has a code?

Thanks

--

Dave Peterson