Opps sorry
It worked when I changed the name to the sheet name instead of sheet 1

Thank you

Jeff

"Chip Pearson" wrote in message
...
Jeff,

Try something like the following:

With ThisWorkbook
With .VBProject.VBComponents( _
.Worksheets("Sheet1").CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
End With

See www.cpearson.com/excel/vbe.htm for more details.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com





"WashoeJeff" wrote in message
...
I can't seem to find anything that works to remove code from
Sheet1 or for
that matter any modules

I have a procedure and am going to send the finished sheet but
want to strip
the code with a routine I followed instructions in a book but
it doesnt seem
to work.
Any help appreciated
Jeff




-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the
World!
-----== Over 100,000 Newsgroups - 19 Different Servers! =-----






-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 100,000 Newsgroups - 19 Different Servers! =-----