Sub SampleMacro8()
    MsgBox "This is a sample code for Category 8."
End Sub