Joel,

Give me some tips to learn excel vba.

thanks for your help


On Apr 30, 6:36*pm, joel wrote:
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