I am trying to copy all the visible cells from a sheet, then paste everything but the formulas into a new sheet. My current code works fine, except it does not paste the charts onto the new sheet. Is there a way to do this? Sheets("Original Sheet").Cells.SpecialCells(xlCellTypeVisible).Copy With ThisWorkbook.Sheets("New Sheet").Range("A1") .PasteSpecial xlPasteValuesAndNumberFormats .PasteSpecial xlPasteformats End With

If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

VBA to Copy / Paste Values and Charts

Thread starter z3115
Start date Jul 23, 2014
Tags

charts copy paste special pasting vba

z3115

Board Regular

Jul 23, 2014

I am trying to copy all the visible cells from a sheet, then paste everything but the formulas into a new sheet. My current code works fine, except it does not paste the charts onto the new sheet. Is there a way to do this?

Code:

Sheets("Original Sheet").Cells.SpecialCells(xlCellTypeVisible).Copy 
    With ThisWorkbook.Sheets("New Sheet").Range("A1")
      .PasteSpecial xlPasteValuesAndNumberFormats
       .PasteSpecial xlPasteformats
     End With