![]()
With Cells(5, 1).CurrentRegion.Columns(23) .Value = Evaluate("=IF(" & .Address & "=""Duplicate"",1," & .Address & ")") .SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Delete End With
![]()
With Cells(5, 1).CurrentRegion.Columns(23) .Value = Evaluate("=IF(" & .Address & "=""Duplicate"",1," & .Address & ")") .SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Delete End With
Good Luck...
I don't presume to know what I am doing, however, just like you, I too started somewhere...
One-day, One-problem at a time!!!
If you feel I have helped, please click on the [★ Add Reputation] to left of post window...
Also....Add a comment if you like!!!!
And remember...Mark Thread as Solved...
Excel Forum Rocks!!!
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks