ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _
True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, _
AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, AllowSorting _
:=True, AllowFiltering:=True, AllowUsingPivotTables:=True