Sub SampleMacro1()
    MsgBox "This is a sample code for Category 1."
End Sub