Cannot pass object to sub-procedure located in worksheet?

[Hicmade]

Hi,
I spent a lot of time looking for a solution but with no luck.

I have created class CWpis in my 'Class Modules'. In 'Forms' i created sub procedure that collects data
from textboxes and put it to my CWpis new object. Then, I want to pass this object to sub-procedure
located in another worksheet:

    Sub CommandButton1_Click()

        Dim aaa As New CWpis    
        aaa.NumberUD = TextBox1.Value

        Worksheets("Main").NewUD aaa

    End Sub

This is sub-procedure in worksheet "main":

    Public Sub NewUD(ByRef nUD As CWpis)

        Debug.Print (nUD.NumberUD)

    End Sub

What do I get is:
"Run-time error '40036':
Application-defined or object-defined error"

I can pass the same object to sub-procedure located in modules but cannot to worksheets? What is the
reason?

[Aflatoon]

Which version of Excel?

[Hicmade]

Which version of Excel?

It's Excel 2013 - VBA 7.1