Sub SampleMacro5()
    MsgBox "This is a sample code for Category 5."
End Sub