Delete Excel Sheet Event Code Macro

NEW! More Books..

Add Excel Answers & Search To Your Google Toolbar Details

Delete Sheet Event Code Macro. Delete VBA Code With Code

Current Special! Complete Excel Excel Training Course for Excel 97 - Excel 2003, only ~~$145.00~~. $59.95 Instant Buy/Download Includes Advanced Excel (10 lessons) and 2 Excel VBA Courses (20 lessons).

Got any Excel Questions? Free Excel Help

Sheet Event Code

Excel is rich in Event Code for both the Workbook Object and the Sheet Object. For example, the Worksheet Change Event is possibly the most popular of Sheet Events.

Delete Sheet Event Code With Code. See Also Delete Module After Running VBA Code & Delete Workbook Event Code

The macro below can be used to delete Sheet Code based on the Sheet CodeNames supplied to the Select Case Statement within the Sheets Collection Loop . It's ideal to use when you need to copy Sheets from a Workbook but do not want the code to copy with the Sheets.

You will have to go to Tools>Macro>Security - Trusted Publishers and check Trust access to Visual Basic Editor before running the code

Sub DeleteSheetEventCode()
''Needs Reference Set To _
    "Microsoft Visual Basic For Applications Extensibility"
'Tools>References.
Dim sSheet As Object, strName As String

        For Each sSheet In Sheets
        
            Select Case UCase(sSheet.Name)
                Case "SHEET1", "SHEET2", "SHEET3"
                    strName = sSheet.CodeName
                    
                    With ThisWorkbook.VBProject.VBComponents(strName).CodeModule
                            .DeleteLines 1, .CountOfLines
                    End With
                    
                Case Else
                   'Whatever
            End Select
            
        Next sSheet
End Sub

Excel Dashboard Reports & Excel Dashboard Charts 50% Off

Special! Free Choice of Complete Excel Training Course OR Excel Add-ins Collection on all purchases totaling over $64.00. ALL purchases totaling over $150.00 gets you BOTH! Purchases MUST be made via this site. Send payment proof to special@ozgrid.com 31 days after purchase date.

Instant Download and Money Back Guarantee on Most Software

Excel Trader Package Technical Analysis in Excel With $139.00 of FREE software!

Microsoft Ž and Microsoft Excel Ž are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft