Hi ! I found this vb code on the internet and I would like to know how to target all columns in a worksheet.. and not only one like we see in the code. Thanks for the help !! Private Sub Worksheet_Change(ByVal Target As Range)Application.EnableEvents = FalseIf Target.Column = 1 Thenconfirm = MsgBox(“Do you wish to confirm entry of this data?” _& vbCrLf & “You will not be allowed to change it!”, vbYesNo, “confirm Entry”)Select Case confirmCase Is = vbYesDim Cell As RangeWith ActiveSheet.Unprotect Password:=”secret″.Cells.Locked = FalseFor Each Cell In ActiveSheet.UsedRangeIf Cell.Value = “” ThenCell.Locked = FalseElseCell.Locked = TrueEnd IfNext Cell.Protect Password:=”secret″End WithCase Is = vbNoApplication.UndoEnd SelectEnd IfApplication.EnableEvents = TrueEnd Sub