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