For each sh In Activeworkbook.Worksheets
sh.Column(8).ClearContents
Next sh

--
---
HTH

Bob

__________________________________________
UK Cambridge XL Users Conference 29-30 Nov
http://www.exceluserconference.com/UKEUC.html

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"CP" wrote in message
...
Is it possible to delete the contents of every column H in the whole work
book using a command button