How do I activate this Macro?

Sub sigma_to_cell()
Selection.Font.Name = "Symbol"
Selection.Value = "S"
End Sub

Any help is greatly appreciated.

Dan