About Us

Damian

Thank You.

"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

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Micro	Ganesh Kumar	Excel Worksheet Functions	2	July 21st 09 03:54 PM
Micro	roheel	Excel Programming	0	April 26th 05 09:43 AM
Micro	djmimi	Excel Worksheet Functions	0	February 9th 05 05:29 PM
what does the micro do	Ibrahim	New Users to Excel	1	December 8th 04 01:54 PM
Befuddled with For Next Loop ------ Run - Time Error '13' Type Mismatch Error	rdavis7408	Excel Programming	1	August 25th 04 03:54 AM

Menu

About Us