ItalianPlatinum
Well-known Member
- Joined
- Mar 23, 2017
- Messages
- 795
- Office Version
- 365
- 2019
- Platform
- Windows
Hello - i am trying to improve my VBA and speed it up by removing all instances of select and activate. one issue i am having is converting the below:
Workbooks("t.xlsx").Activate
sheets("main").Activate
Range("A2:X2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete
ActiveWorkbook.Close SaveChanges:=True
i thought this would work but it doesn't seem to be:
Workbooks("t.xlsx").sheets("main").Range("A2:X2").End(xlDown)).Delete
ActiveWorkbook.Close SaveChanges:=True
Workbooks("t.xlsx").Activate
sheets("main").Activate
Range("A2:X2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete
ActiveWorkbook.Close SaveChanges:=True
i thought this would work but it doesn't seem to be:
Workbooks("t.xlsx").sheets("main").Range("A2:X2").End(xlDown)).Delete
ActiveWorkbook.Close SaveChanges:=True