Simple-> new sheet 2

[kingz2000]

Hi,

I'd like to add a sheet, whereby I delete the sheet before if it exists.

Simple, I would have thought

strSheetName="XYZ"
On Error Resume Next
Sheets(strSheetName).Delete
On Error GoTo 0

Sheets.Add after:=(strSheetName)

however I get the error message "Application-defined or Object-defined error"

Can anyone help?

Thanx

 

[SkipVought]

Hi,

dim ws as worksheet

for each ws in worksheets
  if ws.name = strSheetName then
     ws.delete
     esit for
  end if
next

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[PHV]

Sheets.Add after:=(strSheetName)
You want to add a sheet after one that doesn't exist ...

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[MakeItSo]

If you read the Sheet's Index before deleting the sheet, you should be able to add the new sheet after the sheet(Index-1), rather than after the sheet name, which no longer exists.
;-)

Cheers,
MiS


[navy]"We had to turn off that service to comply with the CDA Bill."[/navy]
- The Bastard Operator From Hell

 

[kingz2000]

No, I want to add a sheet, and call it 'strSheetname'!

Isn't that what "after" is for??

@skipvought:Thanks for the cleaner version of deleting the sheet.

 

[kingz2000]

ok ok...forget that question