Works great, however, I miss counted. I just took this over from someone else
so I failed to count the ws's that I don't want to use.

There are actually 30 worksheets of which I only want to run the macro in
the following ones:

C2k - 1x
C2K-EVDO Rev O
C2K-EVDO Rev A
Product Stress
Product SysTest
DO CT
1x Compliance
CSW
Bluetooth
WLAN
Broadcase
Multimedia
IMS & IP

Sorry for the confusion.

Thanks
Frank


"Gary''s Student" wrote:

Sub cleanout()
For Each ws In Sheets
ws.Activate
Set rr = Intersect(ActiveSheet.UsedRange, Range("D:H"))
If Not rr Is Nothing Then
For Each r In rr
If r.Value 0 Then
r.Value = 0
End If
Next
End If
Next
End Sub

--
Gary''s Student - gsnu200728