Удаление и добавление рабочего листа портит код

Question

Я делаю код, который отображает каждую строку (2-18) в отдельном листе. Я хочу удалять и добавлять новые таблицы каждый раз, когда нажимается кнопка, чтобы избежать дублирования графиков. Код работает с закомментированными строками удаления и добавления, но когда я раскомментирую, я получаю ошибку времени выполнения

For RowIndex = 2 To 18 'Repeats for each line
   sht = Cells(RowIndex, 2).Value 'Worksheet name is in column B
'   Worksheets(sht).Delete 'Deletes current worksheet for every tag
'   Worksheets.Add.Name = sht 'Creates blank new worksheet for every tag
'   Worksheets(sht).Move _
'   After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)   'Moves new sheet to end 
   CreateChart RowIndex, sht, DateColInd
Next RowIndex

'CODE GIVES ERROR AT SET XVALUES LINE

Sub CreateChart(Row, sht, DateColInd) 'DateColInd is the column index for today's date 
   Dim xValues As Range
   Dim yValues As Range
   Dim Target As Range
   Dim Limit As Range
   Dim cht As Chart
   Set xValues = Worksheets("Data Archive").Range(Cells(1, 3), Cells(1, 
   DateColInd)) 'Gets all data per given line

Я хочу сбросить все рабочие листы для каждой строки, каждая с графиком. Когда строки закомментированы, это создает сюжет в порядке. Но когда строки не закомментированы, я получаю ошибку во время выполнения, и она терпит неудачу