The macro

Sub Links_UnHide()
   Workbooks("WRAPR.xlsm").Sheets("Webinar Planner").Range("B:B").Columns.Hidden = False
End Sub
should be written as:
Sub Links_UnHide()
   Thisworkbook.Sheets("Webinar Planner").Columns(2).Hidden = False
End Sub