Hej Kim,
Du skal indsætte en stump kode, både i starten af dit script og også til sidst i dint script.
Indsæt denne øverst i dit script. (DitArkNavn og DinKode skal naturligvis rettes efter dit behov)
Sheets("DitArkNavn").Unprotect "DinKode"
|
Og denne nederst i din script
Sheets("DitArkNavn").Protect "DinKode"
|
Så burde det virke
//Allan