Sub SampleMacro4()
    MsgBox "This is a sample code for Category 4."
End Sub