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...

I'd probably write it like this

Dim Ark As Worksheet
Set Ark = ActiveWorkbook.ActiveSheet

Dim Celle As Range
Set Celle = Ark.ActiveCell
--
HTH,
Barb Reinhardt



"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...

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