n-th Sheet is added when I try to add Sheet named as one already exisitng

[pitaszek]

Hi Guys,

I cannot understand the logic in here. I am pretty much sure it should generate and error but it does not. It just adds me another Worksheet named according to regular pattern (Sheet4, Sheet5, etc.)

I want to get an error just to skip creation with error handling and proceed to next loop iteration.

Why is that.

Sub addSheets()

Dim CurrDayBook As Workbook

Set CurrDayBook = Workbooks.Open("something.xls")

CurrDayBook.Sheets.Add.Name = "dupa"
CurrDayBook.Sheets.Add.Name = "dupa"

End sub

Regards,
Witek

 

[Fluff]

The code you've posted should give an error. Are you calling that sub from another macro? or is there more to the code that you haven't shown?