I got a chance to try it and here is the extra's you need to make it work:
Sub test()
Dim myshrttitle As String
Dim wrksht As Worksheet
myshrttitle = "Sheet4"
On Error Resume Next
Application.DisplayAlerts = False
Set wrksht = Sheets(myshrttitle)
If Not wrksht Is Nothing Then
wrksht.Delete
End If
On Error GoTo 0
Application.DisplayAlerts = True
End Sub
HTH
Die_Another_Day
"Die_Another_Day" wrote in message
oups.com...
Dim wrksht as Worksheet
set wrksht = Sheets(myshrttitle)
if not wrksht is nothing then
wrksht.delete
end if
try that. I have'nt had time to test it so it might take a little
massaging to make it work.
HTH
Die_Another_Day
cereldine wrote:
I've rcorded some code that loops through a table and creates a chart on
each column, the chart worksheet is named after a variable myshrttitle
which is driven by a cell value. The code works fine first time and
creates all the charts, what i want to achieve is when the code runs
next time to delete the worksheet with name myshrttitle and then
recreate it?
Is this the correct way to go about the problem?
I name the sheet with the following
ActiveChart.Location xlLocationAsNewSheet, myshrttitle
and was hoping to use something along the lines of
if worksheets(myshrttitle) exists/ is not null then
worksheets(myshrttitle).delete
end if
thanks
--
cereldine
------------------------------------------------------------------------
cereldine's Profile:
http://www.excelforum.com/member.php...o&userid=32069
View this thread:
http://www.excelforum.com/showthread...hreadid=561120