Excel中用VBA怎么提示重复值

Excel中用VBA如何提示重复值？
我现在有一个申请表单，我想将该表单的数据导入到另一张列表存放，当导入时如果有重复值的给与提示
并无法导入该条数据？如下是我使用的函数，运行时提示没有定义，若这种方法可行，该如何定义函数，
若不行，请指教他法。

IF CountIf(Worksheets("表1").Range("g:g"), Worksheets("表1").Range("g5")) = 1 Then
MsgBox("你录入的数据有重复？", vbYesNo + vbQuestion, "系统提示") = vbYes
END IF

------解决方案--------------------------------------------------------
要用WorksheetFunction.CountIf
countif是EXCEL中的函数,不是VBA的函数,要想在VBA中使用,必须在前面加上WorksheetFunction