Ashish Batham
Member
Set appExcel = Excel.Application
appExcel.Visible = True
Set wbk = appExcel.Workbooks.Add
wbk.Worksheets.Add(After:=Worksheets(Worksheets.count)).Name = "Sheet4"
appExcel.Visible = True
Set wbk = appExcel.Workbooks.Add
wbk.Worksheets.Add(After:=Worksheets(Worksheets.count)).Name = "Sheet4"