Problem inserting rows (and cutting)
 

Hello

I got a macro to fix, which has worked.

The original code was:

Columns("M:M").Select
Selection.Cut
Range("L1").Select ' was L1
Selection.Insert Shift:=xlToRight

I tried this also:
Range("L1").Select
DoEvents
Range("L1").Insert

and both gives the error:

Runtime error 1004
Insert method of Range class failed.

What can cause this?

WBR
Sonnich

Problem inserting rows (and cutting)
 

On Jan 8, 7:22*pm, jodleren wrote:
Hello

I got a macro to fix, which has worked.

The original code was:

* * Columns("M:M").Select
* * Selection.Cut
* * Range("L1").Select ' was L1
* * Selection.Insert Shift:=xlToRight

I tried this also:
* * Range("L1").Select
* * DoEvents
* * Range("L1").Insert

and both gives the error:

Runtime error 1004
Insert method of Range class failed.

What can cause this?

WBR
Sonnich

Adding this does not help

For aa = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(aa).Unprotect
Next

Problem inserting rows (and cutting)
 

On Jan 8, 7:33*pm, jodleren wrote:
On Jan 8, 7:22*pm, jodleren wrote:



Hello

I got a macro to fix, which has worked.

The original code was:

* * Columns("M:M").Select
* * Selection.Cut
* * Range("L1").Select ' was L1
* * Selection.Insert Shift:=xlToRight

I tried this also:
* * Range("L1").Select
* * DoEvents
* * Range("L1").Insert

and both gives the error:

Runtime error 1004
Insert method of Range class failed.

What can cause this?

WBR
Sonnich

Adding this does not help

* * For aa = 1 To ActiveWorkbook.Worksheets.Count
* * * ActiveWorkbook.Worksheets(aa).Unprotect
* * Next

I made this up:

Range("L1").Select
Columns("L:L").Insert
Columns("N:N").Select
Selection.Cut
ActiveSheet.Paste Destination:=ActiveSheet.Range("L:L")

This works.

Any better ideas?

Sonnich