Sub zeroo()
For Each r In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConst ants)
If IsNumeric(r.Value) Then
r.Value = 0
End If
Next
End Sub

--
Gary''s Student - gsnu200827


"FrankM" wrote:

OK, this request may seem a bit odd but please bear with me.

I have a couple dozen spreadsheets and I need to change all the numbers on
all the spreadsheets to zero.

Is it possible, with a Macro (or other means) to change all the numbers on
all the open spreadsheets to zero automatically vs manually.

Kindda a strange request, I know.