我可以为声明的对象做排序吗？ VBA

Question

我已将工作表声明为对象，并尝试在工作表中进行排序，但遇到错误“Range类的排序方法失败”。我猜一个对象不能和Sort函数一起使用？ 但是我必须将工作表声明为对象，否则会遇到“Set Spreadsheet1 = newwb.Worksheets（”Sheet1“）的另一个错误”......无论如何要修复它？

Public newwb As Object
Public Spreadsheet1 As Object

Set newwb = CreateObject("excel.Application")
Set newwb = newwb.Workbooks.Add
Set Spreadsheet1 = newwb.Worksheets("Sheet1")

Spreadsheet1.Activate

With Spreadsheet1
    .Range("A1:D100").Select
    .Range("A1:D100").Sort Header:=xlYes
End With