Determine if a chart exists
Thank you Joel!!
<3 Matt
"joel" wrote:
ChartName = arrFileList(FileNum) & "_" & arrLayers(LayerNum)
Found = false
for each sht in worksheets
if sht.name = ChartName then
Found = true
exit for
end if
next sht
if found = true then
Sheets(ChartName).Delete
end if
"Matt S" wrote:
All,
I've been using the search feature, but haven't crossed over a situation
where someone needed to determine if a chart exists.
I am giving the user the ability to run a snippet of code over again if they
change something. It essentially will regraph everything. I want to first
delete the Chart it had previously made if there were one and then recreate
it.
Here is my code below. I have an error message with the first line. The
two arr* terms are arrays that have a defined name.
Set shtnme = Worksheets(arrFileList(FileNum) & "_" & arrLayers(LayerNum))
'Delete graph if already there cause user reran graphing tool
If Not shtnme Is Nothing Then
Sheets(shtnme).Delete
Else: End If
|