Rows() error 1004 VBA

[btbdn]

Sub Macro15()
'
' Macro15 Macro
'

'
Sheets("Plan4").Select
' the error start here
Rows(3).Select
Selection.EntireRow.Hidden = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.EntireRow.Hidden = True
Range("A2:L2").Select
Selection.Copy
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A2").Select
Sheets("Plan4").Select
ActiveCell.FormulaR1C1 = "=Plan4!R[2]C+1"
ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("Controle").Select
End Sub

 

[bbott]

This code worked fine when I ran it. What does the error say?

 

[btbdn]

This code worked fine when I ran it. What does the error say?

error 1004

 

[bbott]

error 1004

Yes, but that could be a number of issues. What does it say after 1004?

 

[Andrew Poulsom]

Where did you put your VBA code? It needs to be in a General module like Module1, not a Worksheet module.

 

[brian.wethington]

Needs to be in a general module not a worksheet module
As an aside. There is very few reasons to select a range to work with it. For example, the same thing your code is doing can be done slightly more efficiently like this:

Sub Test15()

With Sheets("Plan4")
    .Rows(3).EntireRow.Hidden = False
    .Rows(3).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    .Rows(3).EntireRow.Hidden = True
    .Range("A2:L2").Copy
    .Range("A4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
    .Range("A2").FormulaR1C1 = "=Plan4!R[2]C+1"
End With

End Sub

 

[btbdn]

Where did you put your VBA code? It needs to be in a General module like Module1, not a Worksheet module.

thank you I forgot to do it