Hi Everyone,
The below script is returning a "Run-time error '438': Object doestn support this property or method"
The error is occuring on the line: last_useRrow = ActiveSheet("A" & Rows.Count).End(xlUp).Row + 1
Confusing because the line two above to set 'lastrowAdmin' is set up the exact same way, here and on other scripts and works ok.
Can anyone see what I am missing by any chance?
Dim WS1 As Worksheet, lastrowAdmin As Integer, rng2 As Range, rnG1 As Range, last_useRrow As Integer
lastrowAdmin = WS1.Range("L" & Rows.Count).End(xlUp).Row + 1
last_useRrow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 1
The below script is returning a "Run-time error '438': Object doestn support this property or method"
The error is occuring on the line: last_useRrow = ActiveSheet("A" & Rows.Count).End(xlUp).Row + 1
Confusing because the line two above to set 'lastrowAdmin' is set up the exact same way, here and on other scripts and works ok.
Can anyone see what I am missing by any chance?
Dim WS1 As Worksheet, lastrowAdmin As Integer, rng2 As Range, rnG1 As Range, last_useRrow As Integer
lastrowAdmin = WS1.Range("L" & Rows.Count).End(xlUp).Row + 1
last_useRrow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 1
Last edited by a moderator: