VBA/Macro - Copy paste special enhanced metafile

[Puppies72]

Hi all,

I have tried to record a macro to do this but it stops as soon as I get to opening a new book

What I need to do is:
Range("A1:Z123").Select
Selection.Copy

Then I need to open a new blank workbook and on sheet 1 at A1 I need to paste special Picture(enhanced metafile)

Anyone have any idea how I go about this?

 

[Ralajer]

Try this:

Sub copyToNewWB()
    Dim wb As Workbook
    Dim rng As Range
   
    Set rng = ActiveWorkbook.ActiveSheet.Range("A1:Z123")
    Set wb = Workbooks.Add
    
    rng.Copy
    wb.ActiveSheet.Pictures.Paste
    Application.CutCopyMode = False
End Sub

Let me know if it was you were going for.

 

[Puppies72]

Brilliant thank you!