View Single Post
 
Old 01-15-2025, 03:32 PM
batman1 batman1 is offline Windows 11 Office 2013
Advanced Beginner
 
Join Date: Jan 2025
Posts: 57
batman1 is on a distinguished road
Default

This is because when the code is run, Worksheets(1) is active, so Range("A1").End(xlDown) means a cell on Worksheets(1), so
Worksheets(2).Range("A1", <cell on Worksheets(1)>)
causes an error.

Write code that is independent of the active sheet, e.g.

Code:
    Set namesRange = Worksheets(1).Range("A2", Worksheets(1).Range("A2").End(xlDown))
        Set tasksRange = Worksheets(2).Range("A1", Worksheets(2).Range("A1").End(xlDown))
Reply With Quote