Dim WS As Worksheet
Dim i As Long
With ThisWorkbook
Set WS =.Worksheets.Add(After: =.Sheets(.Sheets.Count))
End With
For i = 1 To 1000
DoEvents
Next i
WS.Name = txtSheetName.Value
This poem has not been translated into any other language yet.
I would like to translate this poem