to change the macros as per active cell and range

  • Thread starter Thread starter pol
  • Start date Start date
P

pol

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
 
Try

Columns(ActiveCell.Column).Select
Cells(1, ActiveCell.Column).Activate

If this post helps click Yes
 
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.
 
Back
Top