Clear Previous Sheets

[Tech56]

Hi,

Can this code be modified to clear before updating so it removes any sheet names if those sheets have been deleted?

Sub GetWSNames()
Dim ws As String
Dim i As Long

With ActiveSheet

For i = 1 To .Parent.Worksheets.Count

ws = .Parent.Worksheets(i).Name
.Range("A" & i + 1).Value = ws

Next i
End With
End Sub

Thank you

 

[PCI]

See next code

Option Explicit
Sub GetWSNames()
Dim ws As String
Dim i As Long

    With ActiveSheet
        Range(.Cells(1, "A"), .Cells(Rows.Count, "A").End(3)).Delete
        For i = 1 To .Parent.Worksheets.Count
            ws = .Parent.Worksheets(i).Name
            .Range("A" & i + 1).Value = ws
        Next i
    End With
End Sub