If i got it right try :
[vba]Sub Only_Once()
Set rng = Range("A1:B" & Cells(65536, 1).End(xlUp).Row)
rng.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
rng.SpecialCells(xlCellTypeVisible).Select
Range("A1").Select
End Sub[/vba]
If i got it right try :
[vba]Sub Only_Once()
Set rng = Range("A1:B" & Cells(65536, 1).End(xlUp).Row)
rng.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
rng.SpecialCells(xlCellTypeVisible).Select
Range("A1").Select
End Sub[/vba]
Last edited by Aussiebear; 01-18-2012 at 03:44 AM. Reason: Added tags to code
Posting Permissions
Reply With Quote