Getting Error in Micro(for Loop)
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
|