In place of the:
For each
insert these three lines:

s = Array("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")
For i = 0 To 12
ws = Sheets(s(i))
--
Gary''s Student - gsnu200728


"Beep Beep" wrote:

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