excel vba sheet name

[BORUCH]

Hi

i would like a vba that does the flowing

if my seventh character from my sheet name begins with a "4" then delete row 12 from the sheet if not continue to the rest of the code

Thanks

 

[MARK858]

my sheet name

Which sheet? the activesheet?

my seventh character from my sheet name begins with a "4"

Not understanding the use of "begins with", do you mean if the seventh character is a 4?

if not continue to the rest of the code

What other code?

 

[BORUCH]

Which sheet? the activesheet?


Not understanding the use of "begins with", do you mean if the seventh character is a 4?


What other code?

Yes it's the active sheet

Yes I mean if the seventh character is a 4

I would like to put this code in the beginning of a module which has code for doing other things

 

[MARK858]

Maybe...

Sub Delete12()
    If Mid(ActiveSheet.Name, 7, 1) = 4 Then
        ActiveSheet.Rows(12).Delete 'you could do away with the activesheet and just have Rows(12).Delete
    Else
        MsgBox "Rest of your code here"
    End If
End Sub

 

[MARK858]

Or depending if you want to code to run anyway if the row 12 is deleted then

Sub Delete12()
    If Mid(ActiveSheet.Name, 7, 1) = 4 Then ActiveSheet.Rows(12).Delete 'you could do away with the activesheet and just have Rows(12).Delete
  ' Rest of your code here
End Sub