In general, I hate merged cells, too. But every so often, they're the only way
to make the worksheet look pretty. But they cause so much trouble, I do my best
to live with the non-pretty sheets <vbg.

If you've modified your toolbar (xl2003 menu stuff), you can actually add an
icon to do this "merge across" for the selected range(s).

Tools|Customize|Commands tab|format category
About half way down, there's that "Merge Across" icon
drag it to your favorite toolbar.

Jim Thomlinson wrote:

I just keep learning new stuff. I had no idea that merge had that parameter.
That could be because I never merge cells so I guess I will be hard pressed
to use this but it is still good to know. Thanks Dave...
--
HTH...

Jim Thomlinson

"Dave Peterson" wrote:

..merge has a parm (Across) that you can use to merge the rows in the range. If
you use that, you don't have to loop through the rows.



Option Explicit
Sub AddExtraRows()

Dim wks As Worksheet

Set wks = ActiveSheet

With wks
.Unprotect Password:="eli"
.Rows("32:80").Insert
.Range("C32:C103").Resize(, 4).Merge across:=True
.Range("G32:G103").Resize(, 6).Merge across:=True
.Range("M32:M103").Resize(, 3).Merge across:=True
.Protect Password:="eli"
.EnableSelection = xlUnlockedCells
End With
End Sub



Damian wrote:

I am trying to add extra rows and the merge certatin columns together, but I
am getting a

Run-Time error '1004'
Application-defined or object-defined error

How come?

Here is the code:
Sub AddExtraRows()

ActiveSheet.Unprotect Password:="eli"
Rows("32:80").Insert Shift:=xlDown

For i = 32 To 103
Range(Cells(i, 3), Cells(i, 6)).Merge
Next i

For j = 32 To 103
Range(Cells(j, 7), Cells(j, 12)).Merge
Next j

For k = 32 To 103
Range(Cells(k, 13), Cells(k, 15)).Merge
Next k

With ActiveSheet
.Protect Password:="eli"
.EnableSelection = xlUnlockedCells
End With
End Sub

--

Dave Peterson


--

Dave Peterson