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