VBA Code - add sheet with previous sheet name and suffix

[horizonflame]

Hi AllI'm filtering on column I and creating a new sheet to move the contents too. I need to rename the sheet as the previous sheet name with the criteria suffix. Could somebody help me please with the last part of my code?

Thanks

Range("I1").Select    
Selection.AutoFilter    
ActiveSheet.Range("$A$1:$L$231").AutoFilter Field:=9, Criteria1:="=01***", _        
Operator:=xlOr, Criteria2:="=02***"

'take sheet name and add suffix _0102    
Sheets.Add(After:=Sheets(Sheets.Count)).Name =     
ActiveSheet.Paste

 

[RoryA]

By "previous sheet" do you mean the one to the left of the new sheet, or something else?

 

[Fluff]

How about

Sub horizonflame2()
   Dim ShtName As String
   With ActiveSheet
      If .AutoFilterMode Then .AutoFilterMode = False
      .Range("$A$1:$L$231").AutoFilter Field:=9, Criteria1:="=01***", _
         Operator:=xlOr, Criteria2:="=02***"
      .AutoFilter.Range.Copy
      ShtName = .name
   End With
   'take sheet name and add suffix _0102
   Sheets.Add(After:=Sheets(Sheets.Count)).name = ShtName & "_0102"
   ActiveSheet.paste
End Sub