Here's what works for me:

Sub CopyRangeValues_AllSheets()
Dim sh As Variant

For Each sh In Split("Cover,Comments,Month,YTD,Analysis,Cost Per
Car", ",")
With Sheets(sh).UsedRange
.Value = .Value
End With
Next
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc