VBA range kopieren naar ander tabblad

[Sambal87]

Hi allemaal,

ik probeer een aantal cellen van tabblad "Standaard modules" te kopieren naar tabblad "Database". Als ik in tabblad database sta werkt de VBA maar zodra ik in een ander tabblad sta (of knop in ander tabblad heb gekoppeld) krijg ik een foutmelding.
Daarnaast ben ik benieuwd of ActiveSheet.Unprotect voldoende is om de beveiliging eraf te halen op het gehele document?

Ik heb reeds onderstaande code:

Sub InsertModuletodatabase1()
ActiveSheet.Unprotect
Sheets("Standaard modules").Range("A18:I26").Copy
Sheets("Database").Range("A3:I11").Activate
ActiveCell.Insert Shift:=xlDown
ActiveSheet.Protect
End Sub

Hopelijk kunnen jullie mij helpen met de juiste code!

Dank!

 

[VenA]

ActiveSheet lijkt mij voor zich spreken.

Sub InsertModuletodatabase1()
  With Sheets("Database")
    .Unprotect
    Sheets("Standaard modules").Range("A18:I26").Copy
    .Range("A3:I11").Insert Shift:=xlDown
  .Protect
  End With
End Sub

 

[Sambal87]

Werkt! dank!