| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Use VB code to remove code in sheet1
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! =----- |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Use VB code to remove code in sheet1
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! =----- |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Use VB code to remove code in sheet1
Jeff,
Sub test() Dim strCodeName As String strCodeName = Worksheets("My Sheet 1").CodeName With ThisWorkbook.VBProject.VBComponents(strCodeName).C odeModule If .CountOfLines 0 Then .DeleteLines 1, .CountOfLines End With End Sub You could have problems running this under Excel 2002 with the security features. Recommend investigating 'trusted code' options if this is a problem. Rob "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! =----- |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Use VB code to remove code in sheet1
using the code I get a subscript out of range error
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! =----- |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Use VB code to remove code in sheet1
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! =----- |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| remove password on VBA code | Excel Discussion (Misc queries) | |||
| VBA Code Required for deleting All Sheets except Sheet1 | Excel Discussion (Misc queries) | |||
| code is not to work on sheet1 | New Users to Excel | |||
| How do I color code the "SHEET1" Tab in Excel? | Excel Worksheet Functions | |||
| Remove VBA code | Excel Programming | |||
Linear Mode
