VBA New Work Book adding problem !

[mikeprice53]

Please refer to the VBA below

Dim NewWb As Workbook

t = Time
d = Date


If Chk_Save2File = True Then

Set NewWB = Workbooks.Add
NewWB.Activate
Windows("Import Calculator 20").Activate
Sheets("PRINTOFFSHEETAFTBP").Select
Sheets("PRINTOFFSHEETAFTBP").Copy


ChDir "G:\"
ActiveWorkbook.SaveAs Filename:="G:\FAMALBUM\Imports Calculator\Saved Results\" & Cusn & "-" & "AftBP" & "-" & Format(d, "ddmmmyy") & "@" & Format(t, "hh-mm") & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Range("B9").Select

End If

my problem is that when it opens up another workbook to paste the data into it opens up two and does what it is supposed to to the second one but leaves teh first one open, all I want is the one workbook to save and close as stated in teh code !

Please help

 

[mikeprice53]

ok ok ok !

I sussed it :0)

Was being a little small minded when I I was adding a new workbook...

On the copy command it already adds a new workbook so thats where the 2nd one came from ! ;0)

 

[P Sitaram]

The code relating to creation of new Workbook is not needed as you are using the Save As menthod.

Remove all the lines pertaining to the New Workbook.