I'm copying and transposing a comma separated list from A1 in Sheet1
to a new sheet. The New sheet is created, but I get an error trying to
paste the list.


Sub AddSheet()
Dim ActNm As String
With ActiveWorkbook.Sheets
..Add after:=Worksheets(Worksheets.Count)
End With
ActNm = ActiveSheet.Name
ActiveSheet.Name = "SheetW"

Dim T As String, S As Variant
ActiveCell.Offset(1, 0).Range("A1").Select
With Worksheets("Sheet1")
T = ActiveCell.Value
End With
S = Split(T, ",")
With Worksheets("SheetW")
.Range("A1").Resize(UBound(S) + 1) = Application.Transpose(S)
End With
End Sub