Another one:

With ActiveCell.EntireColumn
.Select
.Cells(1).Activate
End With

In my simple tests, I didn't even need the .activate statement, but I'd keep
it. It makes the code more self-documenting.

pol wrote:

Hi all,
Need your help to change the formula .
Columns("Q:Q").Select
Range("Q1").Activate

How I can change the above macros with active cell and active cell range

For example

If the cursor is in A1column the macro should be

COlumn(A:A).select
Range("A1).activate

If the cursor is in K column the macro should be

COlumn(K:K).select
Range("K1).activate

With thanks

Pol

--

Dave Peterson