Excel 我的。@purpleblau:你不会被迫选择一个你不“喜欢”的答案： Private Sub CreateSheet() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets.Add(After:=Worksh

---

我的。@purpleblau:你不会被迫选择一个你不“喜欢”的答案：

Private Sub CreateSheet()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets.Add(After:=Worksheets("OldSheet"))

'the new sheet has the name from B3 of the old sheet.
ws.Name = Sheets("OldSheet").Range("B3")

'this copy paste part doesn't work, it gives an error.

Sheets("OldSheet").Copy
Sheets("ws").PasteSpecial Paste:=xlPasteValues

End Sub

With ThisWorkbook
    .Sheets("OldSheet").Copy After:=.Sheets(.Sheets.Count)

    With .Sheets(.Sheets.Count)
        .Name = ThisWorkbook.Sheets("OldSheet").Range("B3").Value
        .UsedRange.Value = .UsedRange.Value
    End With
End With