Compile error pri kodi

Postavil sem activex gumb in v njega podal kodo:

Private Sub CommandButton1_Click(ByVal Target As Range)
If Not Intersect(Target, Range("K7:K29")) Is Nothing Then
    If Right(Cells(Target.Row, 2).Text, 4) = ".pdf" Then
        For x = 1 To Range("countcell")
        Call PrintPDFfiles(Target.Row)
        Next x
    Else
        MsgBox "Izbran ni noben dokument"
    End If
End If
End Sub

in mi pri

Private Sub CommandButton1_Click(ByVal Target As Range)

kodi vrže compile error: Procedure declaration does not match description of event or procedure having the same name. Kaj bi bilo lahko narobe ker koda se mi zdi da bi morala funkcionirati ?

aha, torej kako jo lahko potem spremenim oz. v kaj jo naj spremenim ?

Kako bi pa ustvaril novo funkcijo in v tej funkciji uporabil omenjeno kodo ? recimo dodam activex gumb

Private Sub CommandButton1_click()

Imam kodo ki naj jo ob kliku izvede (ter pokliče zgoraj spisano funkcijo)

If Not Intersect(Target, Range("K7:K29")) Is Nothing Then
    If Right(Cells(Target.Row, 2).Text, 4) = ".pdf" Then
        For X = 1 To Range("countcell")
        Call PrintPDFfiles(Target.Row)
        Next X
    Else
        MsgBox "Izbran ni noben dokument"
    End If
End If

zdaj mi samo ne rata tega združit, znanja pa kot vidiš nimam prav veliko.

bump