Copy sheet within same workbook minus shapes

[Livin404]

Hello my macro works properly, I am hoping there is something I can do to not have the two shapes I use "GET PHT" and "CLEAR" (lanuch Macros) are left off the new worksheet I have created with the macro below.

Thank you very much!

Sub Copy_SURFACE_PHT()
Set ws = Sheets("PHT")
 
ws.Copy After:=Sheets("PHT AIR")
 
Set wsNew = Sheets(Sheets("PHT AIR").Index + 1)
 
wsNew.Name = "PHT SURFACE"
End Sub

 

[johnnyL]

How about:

Sub Copy_SURFACE_PHT()
'
    Application.ScreenUpdating = False
    Application.CopyObjectsWithCells = False
'
    Set ws = Sheets("PHT")
    ws.Copy After:=Sheets("PHT AIR")
'
    Sheets(Sheets("PHT AIR").Index + 1).Name = "PHT SURFACE"
'
    Application.CopyObjectsWithCells = True
    Application.ScreenUpdating = True
End Sub

 

[Livin404]

How about:

Sub Copy_SURFACE_PHT()
'
    Application.ScreenUpdating = False
    Application.CopyObjectsWithCells = False
'
    Set ws = Sheets("PHT")
    ws.Copy After:=Sheets("PHT AIR")
'
    Sheets(Sheets("PHT AIR").Index + 1).Name = "PHT SURFACE"
'
    Application.CopyObjectsWithCells = True
    Application.ScreenUpdating = True
End Sub

That is beautiful- Thank you,

 

[johnnyL]

Glad to help @Livin404.