Try something like the following -

Sub test()
Dim ws As Worksheet
Dim wn As Window

On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
ws.Activate
For Each wn In ActiveWorkbook.Windows
wn.DisplayHeadings = False
Next
Next

End Sub

Usually it's not necessary to use select or activate, though in the case of
window properties normally need to activate the sheet.. Above caters for
possibility of multiple windows per sheet and the error handler in case a
worksheet chart is active.

Regards,
Peter T

"C02C04" wrote in message
...
I have a working file with more than 50 sheets. When I send out to my
users I
would like to hide both the row and columns headers in every sheets. Can
someone help?

I am using the below to copy and paste values in every sheet and it worked
very well. Not sure if some coding can be added inside the loop.

Set WB = ActiveWorkbook
For Each SH In WB.Worksheets
With SH.UsedRange
.Value = .Value
End With
Next SH