Calling a Private SUB from SHEET

Hello,

I need to call this Sub CheckBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
from Module.

Normaly this is not function. "I canīt find Macro: CheckBox1_DblClick"

Sub TEST()
Application.Run "CheckBox1_DblClick"
End Sub

What I need is macro, when I click on button, BackColor of CheckBox is changed from white to red.

Help please