Excel VisualBasic Script

Sub MyMacro()
         ActiveWorkbook.Worksheets.Add
         Range("A1").Value = "Company Report"
         Range("A2").Value = "Generated by an Excel macro"
         Range("A3").Value = "Generated for " & Application.UserName
     End Sub