Method 'Add' of object 'Sheet' failed error

Question

What am I doing wrong here:

Sub createGPREC_outputFile()

Dim newWB As Workbook

Set newWB = Workbooks.Add

Worksheets.Add After:=Sheet1, Count:=3

End Sub

All I am trying to do is create a New Workbook with 4 sheets, and give each sheet a new name. But I am getting an error on the highlighted line above.

Answer 1

re: add new workbook

This just worked for me...
'---

Sub createGPREC_outputFile()
Dim newWB As Excel.Workbook

Set newWB = Application.Workbooks.Add
newWB.Worksheets.Add After:=Sheet1, Count:=3

End Sub
'---

NLtL

https://1drv.ms/u/s!Au8Lyt79SOuhZw2MCH7_7MuLj04?e=sAwbHU

(free excel programs)