Excel VisualBasic Script

Sub FixText()
        ActiveCell.Value = Application.WorksheetFunction.Proper("asdf")
     End Sub