Sorry puakeni, I've not looked at the group for a few days.

Your code is making a change to the sheet, hence, it will fail if the
sheet is protected. The way round it is to put something like...

Me.Unprotect "Your_Password"

....at the top of your routine, and...

Me.Protect "Your_Password"

....at the bottom of your routine.

HTH
NickH