Copy Visible Range To A New Workbook

less than 1 minute read

Copies only the visible cells in a selected range to a new workbook, a A1

' ## Copy range to a new workbook, only copies the visible cells in the selected range
Sub RangeToNewWorkbook() '// Vars Dim shtNew As Worksheet Dim rngSelection As Range '// Optimise Application.ScreenUpdating = False '// Set the selected range Set rngSelection = Application.Selection.SpecialCells(xlCellTypeVisible) '// Create new workbook and set the new sheet Application.Workbooks.Add Set shtNew = Application.ActiveSheet '// Copy the selected range and autofit columns rngSelection.Copy shtNew.Range("A1").PasteSpecial Paste:=xlPasteColumnWidths rngSelection.Copy Destination:=shtNew.Range("A1") shtNew.Range("A1").Select '// Optimise Application.ScreenUpdating = True
End Sub

Tags: copy-data

Categories: vba

Updated: September 25, 2018

Twitter Facebook LinkedIn

Leave a Comment