OpenActiveSkylightInBrowser

This will open the currently active Skylight in the system default web browser

Sub OpenActiveSkylightInBrowser()
    Dim addin
    Dim util

    Set addin = Application.COMAddIns("Calumo.WordClient")
    Set util = addin.Object

    util.OpenActiveSkylightInBrowser
End Sub