How can I edit this macro to run on active column?

[HockeyDiablo]

I have columns up to ("PL") and I would like to remove duplicates from each column.

Sub Macro3()


' Macro3 Macro


Selection.EntireColumn.SelectColumns("AA:AA").Select
ActiveSheet.Range("$AA$1:$AA$96769").RemoveDuplicates Columns:=1, Header:= _
xlNo
Selection.EntireColumn.Hidden = True "hides the column so I know what one I ran the duplicate check on"
End Sub
Selection.EntireColumn.Select

Can I change the range to run this or is there a way to run a quick macro to click on the column to selct all and then run the macro for the selected column??

 

[HockeyDiablo]

Sub Macro4()
'
' Macro4 Macro
'


'
ActiveCell.EntireColumn.RemoveDuplicates Columns:=1, Header:=xlNo
ActiveCell.EntireColumn.Hidden = True

End Sub


works when you click on the whole column.

need a loop on the columns now, any help?

 

[Legacy 373233]

Have a look on this

Sub Macro4()

'If you want to start with column A
Range("A1").Select
'comment the line above to start with the currently selected cell

For counter = 1 To 10  'amount of columns[INDENT]ActiveCell.EntireColumn.Select[/INDENT]
[INDENT]ActiveCell.EntireColumn.RemoveDuplicates Columns:=1, Header:=xlNo
activecell.offset(0,1).select[/INDENT]
[INDENT]ActiveCell.EntireColumn.Offset(0, -1).Hidden = True[/INDENT]
Next


End Sub

Hope it helps

 

[HockeyDiablo]

Have a look on this

Sub Macro4()

'If you want to start with column A
Range("A1").Select
'comment the line above to start with the currently selected cell

For counter = 1 To 10  'amount of columns[INDENT]ActiveCell.EntireColumn.Select[/INDENT]
[INDENT]ActiveCell.EntireColumn.RemoveDuplicates Columns:=1, Header:=xlNo
activecell.offset(0,1).select[/INDENT]
[INDENT]ActiveCell.EntireColumn.Offset(0, -1).Hidden = True[/INDENT]
Next


End Sub

Hope it helps

Simply brilliant, thank you for the lesson.