ExcelBanter - Better way to write this

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - Better way to write this (https://www.excelbanter.com/excel-programming/329189-better-way-write.html)

Steph[_3_]

Better way to write this

without actually having to select a sheet?

Worksheets("HR DB").Range("A5:BJ" & Range("B1499").End(xlUp).Row).Copy
Workbooks.Add
ActiveSheet.Select
Selection.PasteSpecial Paste:=xlPasteValues

Alok

Better way to write this

Steph

Just change it to

Worksheets("HR DB").Range("A5:BJ" & Range("B1499").End(xlUp).Row).Copy
Workbooks.Add
activeworkbook.WorkSheets(1).Range("A1").PasteSpec ial Paste:=xlPasteValues

Alok Joshi

"Steph" wrote:

without actually having to select a sheet?

Worksheets("HR DB").Range("A5:BJ" & Range("B1499").End(xlUp).Row).Copy
Workbooks.Add
ActiveSheet.Select
Selection.PasteSpecial Paste:=xlPasteValues

JE McGimpsey

Better way to write this

One way:

With Sheets("HR DB").Range("A5:BJ" & Range("B1499").End(xlUp).Row)
Workbooks.Add.Sheets(1).Range("A1").Resize( _
.Rows.Count, .Columns.Count).Value = .Value
End With

In article ,
"Steph" wrote:

Worksheets("HR DB").Range("A5:BJ" & Range("B1499").End(xlUp).Row).Copy
Workbooks.Add
ActiveSheet.Select
Selection.PasteSpecial Paste:=xlPasteValues

All times are GMT +1. The time now is 10:41 PM.