How to put content of active cell in variable?

Hey there,

I would like to know how I can put the content of the active cell, I go to with this loop, in a varaible.

For CellPtr = 8 To .Cells(Rows.CountLarge, "a").End(xlUp).Row

When I proceede with something like:

Set cvalue = ActiveCell

my variable "cvalue" contains the position of the active cell but not the number that is in that cell.

Does anyone knwo how to fix that??

THX, Obgle