Attribute VB_Name = "modHelpSite"
Option Explicit
' ¸®º» [»ç¿ë¹æ¹ý] ¹öÆ°: »ç¿ë¼³¸í¼­ »çÀÌÆ® ¿­±â
Sub OpenHelpWebsite(control As IRibbonControl)
    Dim url As String
    url = "https://hwpxlam.com/xlam"
    On Error GoTo Fail
    ThisWorkbook.FollowHyperlink Address:=url
    Exit Sub
Fail:
    MsgBox "µµ¿ò¸» »çÀÌÆ®¸¦ ¿­ ¼ö ¾ø½À´Ï´Ù." & vbCrLf & url & vbCrLf & vbCrLf & _
           "ºê¶ó¿ìÀú¿¡¼­ À§ ÁÖ¼Ò¸¦ Á÷Á¢ ¿­¾î ÁÖ¼¼¿ä. (" & Err.Description & ")", vbExclamation, "B-XLAM"
End Sub