JILBO
05-27-2021, 05:51 AM
Hi,
Utilising the code below to clear code from sheets named "Step1", Step2 etc
As the sheet named "Step" is dynamic I would like modify to capture all "Step" Shts
Sub export()
'Tools>References Microsoft Visual Basic For Applications Extensibility Library".
Dim VBProj As VBIDE.VBProject
Dim VBComp, sVBComp As VBIDE.VBComponent
Dim sSheet As Object, strName As String
'Delete code on sheets
For Each sSheet In Sheets
Select Case sSheet.Name
'I want an if(len statement? to basically apply to every sheet name begining with "Step"
Case "Step2", "Step3"
strName = sSheet.CodeName
With ThisWorkbook.VBProject.VBComponents(strName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Case Else
'Nothing else
End Select
Next sSheet
End Sub
Utilising the code below to clear code from sheets named "Step1", Step2 etc
As the sheet named "Step" is dynamic I would like modify to capture all "Step" Shts
Sub export()
'Tools>References Microsoft Visual Basic For Applications Extensibility Library".
Dim VBProj As VBIDE.VBProject
Dim VBComp, sVBComp As VBIDE.VBComponent
Dim sSheet As Object, strName As String
'Delete code on sheets
For Each sSheet In Sheets
Select Case sSheet.Name
'I want an if(len statement? to basically apply to every sheet name begining with "Step"
Case "Step2", "Step3"
strName = sSheet.CodeName
With ThisWorkbook.VBProject.VBComponents(strName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Case Else
'Nothing else
End Select
Next sSheet
End Sub