Activecell applies to a window or the application.

Set Celle = Activecell

looks like what you want.



"Charlotte E." wrote:

Why do I get an error in the last linie of these 4 lines of code:

Dim Ark As Object
Set Ark = ActiveWorkbook.ActiveSheet

Dim Celle As Object
Set Celle = Ark.ActiveCell

Thanks...

--

Dave Peterson