In that case try this...ActiveWorkbook.ActiveSheet.Unprotect"Do something"ActiveWorkbook.ActiveSheet.Protect