Hi thanks for the reply

this is it just copied and pasted

Sub Macro1()
'
' Macro1 Macro
'

'
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("A4:A40").Select
Selection.Locked = True
Selection.FormulaHidden = False
Range("K2").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
Columns("H:I").Select
Selection.EntireColumn.Hidden = True
End Sub