Code voor Invoer naar ander blad

[Chris15]

Onderstaande macro gebeurd in huidige blad, maar ik wil dat hij dit doet in het blad "Gegevens"

Ik heb alles al geprobeerd, maar kom er niet uit, kan iemand mij helpen?

Sub Macro1()
Range("A3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
With Range("A3")
.FormulaR1C1 = "1"
.Font.ColorIndex = 3
End With
Range("A1").Select
End Sub

 

[Chris15]

Hij moet wel weer terug naar het huidige blad!
Range("A1").Select (in huidige blad)

 

[gast0660]

Zoiets?

Sub Macro1()

With Sheets("Gegevens").Range("A3")
.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
.FormulaR1C1 = "1"
.Font.ColorIndex = 3
End With
Sheets("Huidig blad").Range("A1").Activate
End Sub

 

[Chris15]

Werkt prima, dank je!