Copy Activesheet To New Workbook

[Ashok Koparkar]

How to Copy Active sheet to new workbook without shapes(buttons) ?

 

[mumps]

This macro will create a new workbook, copy the active sheet and delete all the shapes.

Sub CopySheet()
    Dim sh As Shape
    ActiveSheet.Copy
    For Each sh In ActiveSheet.Shapes
        sh.Delete
    Next sh
End Sub

 

[Ashok Koparkar]

Thanx !

 

[mumps]

You are very welcome.