Run-time Error 13 Type Mismatch with CountIf

Hello guys,

I'm rookie for VBA/macros, and I have encountered this Run Time Error 13 when I try to use the Format Painter, copy down (Ctrl+D), drag and copy etc.

Here is my code, can someone please help me with this issue? Really appreciated! Thanks!

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.CountIf(Range("E:E"), Target) > "1" Then
MsgBox "This duplicate document has already been entered! Please enter next duplicate document.", vbCritical, "Change Entry"
Target.Value = ""
End If
End Sub

Hi ceshi25, welcome! "1" is text. Countif returns a number. You can't compare the two. Try this:

Please Login or Register  to view this content.

Please click the Add Reputation star below any helpful posts, and if you have your answer, mark your thread as SOLVED (Thread Tools up top). Thanks!-Lee

AHHHAAAHH! COUNTIF wants a single cell. The error is raised when you change multiple cells all at once. Try this:

Please Login or Register  to view this content.

Please click the Add Reputation star below any helpful posts, and if you have your answer, mark your thread as SOLVED (Thread Tools up top). Thanks!-Lee