Right from the Recorder:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 2/22/2008 by James Ravenswood
'

'
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("A1").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

--
Gary''s Student - gsnu200770


" wrote:

how to lock a single cell in ms excel by not a worksheet