Select range, but merge only first 5

[xsernakatomi]

Hi friends,

i want to create the following macro function:

1) I select a specific row (Row 11)

2) this macro should than take only the first 5 cols from a to e to merge them

I tried a lot, but could not get it work, that it selects the first 5...
thank you very much

http://img119.imageshack.us/my.php?image=excelvu1.jpg

 

[Jonmo1]

Welcome to the board...

I'll first say, Merged Cells and VBA Code mix together about as well as Oil and Water, and they should be avoided like the Plague. They cause more problems than they solve...
A very similar effect can be obtained with "Center Accross Selection", found in format - cells - Alignement - Text Alignment - Horizontal

But if you must, this should do it...

Assuming the user has row 11 selected before starting the macro..

Range("A" & Selection.Row & ":E" & Selection.Row).Merge

Hope this helps..