DanOfEarth
06-03-2010, 01:13 PM
Hi guys,
Sorry so needy. I've got a nasty deadline. If I don't get this in time, people's houses get foreclosed on.
This should be simple. I'm getting an error at the "with selection". I knew it would hang there, but I can't figure out how to apply ".Removeduplicates" to the selection. I prob don't even need the "with" statement.
Sub Duplicates()
'
' Duplicates Macro
Sheets("Leads").Select
Set rng = ActiveSheet.UsedRange
rng.Offset(1, 0).Resize(rng.Rows.Count - 1, _
rng.Columns.Count).Select
With Selection
.RemoveDuplicates Columns:=Array(3, 4),
Header:=xlYes
End With
End Sub
Sorry so needy. I've got a nasty deadline. If I don't get this in time, people's houses get foreclosed on.
This should be simple. I'm getting an error at the "with selection". I knew it would hang there, but I can't figure out how to apply ".Removeduplicates" to the selection. I prob don't even need the "with" statement.
Sub Duplicates()
'
' Duplicates Macro
Sheets("Leads").Select
Set rng = ActiveSheet.UsedRange
rng.Offset(1, 0).Resize(rng.Rows.Count - 1, _
rng.Columns.Count).Select
With Selection
.RemoveDuplicates Columns:=Array(3, 4),
Header:=xlYes
End With
End Sub