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.Count)
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
Bookmarks