CodeLink
http://yourwebsite.com/sample4
CodeContent
Sub SampleMacro4() MsgBox "This is a sample code for Category 4." End Sub