Remove Duplicates MS Office 2007

[Trevor G]

I have recorded a macro to look to remove duplicates throughout a table, what I would like to do is use a named range which will expand (more rows not columns) if the range is bigger the next time I need to run the macro, I have heard of CurrentRegion but not sure if this fits into this situation, a copy of the macro is shown here:

Sub mcrRemoveDuplicates()
'
' mcrRemoveDuplicates Macro
'
'
Range("C1:H21").Select
ActiveSheet.Range("$C$1:$H$21").RemoveDuplicates Columns:=6, Header:=xlYes
End Sub

 

[chergh]

I don't use 2007 but this seems like it should work:

Sub mcrRemoveDuplicates()

ActiveSheet.Range("C1").currentregion.RemoveDuplicates Columns:=6, Header:=xlYes

end sub