lastrow = WorksheetFunction.CountA(.Range("A:A")) + 3

Hi. With data in A100, LastRow returns 4. Is the logic ok?

Sub Demo()
Dim LastRow As Long
[A:A].Clear
[A100] = "Junk"

'Last Row is 4
LastRow = WorksheetFunction.CountA(Range("A:A")) + 3
End Sub

--
Dana DeLouis


"Madduck" wrote in message ...



I've done some more testing...

the error is definately in the Enter_False module...

I have seperated all the modules out, it works sometime , but errors alot..

The last run time error I just recieved is

Run-time error '-2147417848 (80010108)

Automation error
The object invoked has disconnected from its clients.


I hit "Debug" and then get the other Run-time error Value of object Range
failed.. as already stated....

maybe ( hopefully) this gives you more to go by?