Try this:
[macro]800 {MP} PotionID:=268 Name:=PLAYER selfID:=Creature.ByName(!Name!) Creatures.ByRangeName(1, !Name!)>=1 Misc.ItemCount(Mana Potions)>=10 Creature.ShootOn(!selfID!, !PotionID!) [/macro]
Edit "PLAYER", for the name of character.
[macro]800 {MP} PotionID:=268 Name:=PLAYER selfID:=Creature.ByName(!Name!) Creatures.ByRangeName(1, !Name!)>=1 Misc.ItemCount(Mana Potions)>=10 Creature.ShootOn(!selfID!, !PotionID!) [/macro]
Edit "PLAYER", for the name of character.