How to get result in a new worksheet of a new workbook?

[shrinivasshweta]

With Workbooks.Add
   ActiveWorkbook.SaveAs Filename:="C:\WorkbookName1.xls"

       ActiveSheet.Name = "Results"
        .Columns("B:D").ColumnWidth = 20
        .Range("B2:D2").Value = Array("Transient Licenses", "Steady Licenses", "Static Licenses")
        .Range("B3:D3").Value = Array(transientLicense, steadyLicense, staticLicense)
    End With

After running my macro, i want the result in a new worksheet of a new workbook.
Please help me as I am just a beginner in VBA.
Thank you so much in advance.

 

[HackSlash]

That "With" statement doesn't appear to be doing anything for you.

The purpose of "with" is to make all changes to an object at once instead of opening and closing the object multiple times. In your case I believe the object is "ActiveSheet"

The code that you want, to make a new sheet in a new workbook, is really short:

"ActiveSheet.Copy"

See how I put the ".copy" method into a "with" statement:

With ActiveSheet[INDENT].Name = "Results"
[/INDENT]
[INDENT].Columns("B:D").ColumnWidth = 20[/INDENT]
[INDENT].Range("B2:D2").Value = Array("Transient Licenses", "Steady Licenses", "Static Licenses")[/INDENT]
[INDENT].Range("B3:D3").Value = Array(transientLicense, steadyLicense, staticLicense)
.Copy[/INDENT]
End With

ActiveWorkbook.SaveAs Filename:="C:\NewWorkBook.xls"