Delete code from a worksheet using the codename for the sheet

Hello

I have the below code that works to delete the code from a worksheet called 142959.

I want to reference the sheet by it's codename (Sheet13) rather than it's sheetname, because the sheetname will be different each time, but the codename will always be the same.

I'm sure it's simple, but I can't get it.

Thanks in advance

Sub Delete_Sheet_Code()


Dim strName As String


                    strName = Worksheets("142959").CodeName
                                      


                    With ActiveWorkbook.VBProject.VBComponents(strName).CodeModule


                            .DeleteLines 1, .CountOfLines


                    End With


End Sub

Re: Delete code from a worksheet using the codename for the sheet

Stop looking. Thanks to the depth of this site making it easier for dummies to find stuff, I worked it out, and it was VERY simple. I replaced

Worksheets("142959").CodeName

with

ActiveSheet.CodeName