GUS

Selection.NumberFormat = "0.00" should read..

cell.NumberFormat = "0.00"

To prevent losing formatting on Locked cells.

Gord

On Sun, 14 Sep 2003 14:46:06 -0700, Gord Dibben wrote:

GUS

Sub UnLocked_Cells()
Dim cell As Range
For Each cell In Selection
If Not cell.Locked Then
Selection.NumberFormat = "0.00"
cell.Value = "0"
End If
Next cell
End Sub

Gord Dibben Excel MVP XL2002

On Sun, 14 Sep 2003 23:47:19 +0300, "GUS" wrote:

How can i put with a macro the zero(0.00) value to all cells that are
unprotected .

The range that i am working and it is protected is
c4 to m102
not all cells of course are protected