I want a VBA code for:

1. Select the Complete column of Currently Active Cell;
2. Go to the First Cell of the selected column (like Ctrl + .);
3. Count the number of items present in the selection; and
4. Finally Display the said column's number of items in a popup message;
5. If the selected column was the last one (as determined by Ctrl + End),
then display msgbox "Operation Complete";
6. If it is not the last column of the data, display msgbox "Do you want to
continue?"
7. If pressed Yes, then offset one cell to the right and repeat steps 1-6;
8. If pressed No, then display msgbox, "Operation Complete".

Thanx in advance.

--
Best Regards,
FARAZ A. QURESHI