Worksheets.Add after:=Worksheets(Worksheets.Count)

"ittac" wrote:

Hi NG,

probably this question has been asked before, but I couldn't find an answer.
Problem:
I have a Excel 2003 - VBA-module. In this module I need to create a new sheet.
the code looks like this:

Dim NameOfWorkbook as string
NameOfWorkbook = ThisWorkbook.Name

Workbooks(NameOfWorkbook).Sheets.Add
after:=Workbooks(NameOfWorkbook).Sheets(Sheets.Cou nt)

if I try to add a sheet manually, everything works fine.

But I get a Runtime error "-2147319784 (80028018)
Method Add of object sheets failed"
when I try to add thew sheet using the code.

Any help would be greatly appreciated.

Regards
Bodo