Adding Tag to Contact via Macro?

Adding Tag to Contact via Macro?

Is there any way to add a Tag (or multiple tags) to a contact using a Macro?