Looking to make this macro Faster

[Leonardo1234]

Sub STEP14()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = Workbooks.Open("C:\Users\WolfieeeStyle\Desktop\HotStocks\1.xls")
Set ws = wb.Worksheets.Item(1)
With ws
.Range(.Cells(1, 11), .Cells(.Rows.Count, 11).End(xlUp)).Copy .Cells(1, 12)
End With
wb.Save
wb.Close
End Sub

 

[AlanSidman]

xpost: https://www.ozgrid.com/forum/index....this-macro-faster/&postID=1239943#post1239940

 

[RDAngelo]

Possibly...?

Sub faster()
    With Workbooks.Open("C:\Users\WolfieeeStyle\Desktop\HotStocks\1.xls").Worksheets(1)
        .Cells(1, 1).CurrentRegion.Copy .Cells(1, 12)
        .Parent.Close savechanges:=True
    End With
End Sub

 

[vletm]

Leonardo1234
You should reread Forum Rules:

Site Rules - New Users - Please Read

Hi all, Welcome to the Chandoo.org Forums. Posting Rules & Etiquette The Chandoo.org Forums is a collaborative and happy place to learn and expand your Excel knowledge. The Chandoo.org Forums consist of several Sub-Forums based on the type of question/area of Excel you are interested in...

chandoo.org