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