CodeLink
http://yourwebsite.com/sample1
CodeContent
Sub SampleMacro1() MsgBox "This is a sample code for Category 1." End Sub