Worksheet对象

Sub test()

　　Dim w As Worksheet

　　Set w = Worksheets(3)

　　w.Cells(5,3) = 100

End Sub

注意：

worksheet  工作表对象；

当给对象赋值时，要加上关键字Set