Function World() World = "Hello World!" End Function Sub Hello() ActiveCell.Value = "Hello World!" ActiveCell.Font.Color = RGB(255, 0, 0) End Sub