Yes

Dim DeleteCol as string
Dim CompareStr as string
DeleteCol = "H"
CompareStr = Range("AY").Text
Call Duplicate_Delete(DeleteCol,CompareStr)


sub Duplicate_Delete(DeleteCol as string, CompareStr as String)
Application.WorksheetFunction.CountIf( _
Range(DeleteCol & "1:" & DeleteCol & x),CompareStr)
end sub


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?u=229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=199734

http://www.thecodecage.com/forumz