Call a private sub

Use Application.Run "Subroutine Name"

e.g.

use
Application.Run "SetUnProtect"

to run
Private Sub SetUnProtect()