Private Sub Reset()
Dim sWsOriginal As String
Dim objWksCurrent As Worksheet
Dim objSheetsInWb As Variant
Worksheets(sResetName).Visible = True
sWsOriginal = objWs.Name
objWs.Name = "Delete"
Worksheets(sResetName).Name = sWsOriginal
Set objSheetsInWb = ThisWorkbook.Sheets
Worksheets(sWsOriginal).Activate
Application.DisplayAlerts = False
For Each objWksCurrent In objSheetsInWb
If objWksCurrent.Name <> sWsOriginal Then
objWksCurrent.Delete
End If
Next
Application.DisplayAlerts = True
frmSetSheetName.Hide
End Sub