wat doe ik fout

[W Bloemendal]

Hier het begin van een macro

Dim aantal As Integer
Dim i As Integer
Dim X As Integer
Dim best As String
Dim bron As String

bron = ActiveSheet -------- hier krijg ik een fout melding
best = "zagen"
Sheets(best).Unprotect
Sheets(bron).Unprotect

hier na moet er in de makro met het active blad en het blad zagen gewerkt worden.
dit heb ik al deze macro heb ik diverse keren nodig om iets van een active blad naar een bepaald ander blad te copieren. En als ik met bovenstaande kan werken dan heb ik niet zoveel macro's nodig

wim

 

[Wigi]

Zoiets

Dim aantal As Integer
Dim i As Integer
Dim X As Integer
Dim best As Worksheet
Dim bron As Worksheet

Set bron = ActiveSheet
Set best = Sheets("zagen")
best.Unprotect
bron.Unprotect

Wigi