傳遞表要子程序

Question

我試圖通過傳遞一定SHEETNAME作爲參數調用一個子程序，但我收到以下錯誤：

Object doesn't support this property or method 

這裏是我的代碼：

Public Sub PerformanceLeague() 

Dim wsPerformanceLeague As Worksheet 

Set wsPerformanceLeague = Worksheets("PerformanceLeague") 
SetHeadings wsPerformanceLeague 

End Sub 

Public Sub SetHeadings(sSheet As Worksheet) 

Dim headers() As Variant 
Dim ws As Worksheet 
Dim wb As Workbook 

Application.ScreenUpdating = False 

End Sub 

我試圖調用的子程序，如下爲好，但收到同樣的錯誤：

Call SetHeadings(wsPerformanceLeague) 

Answer 1

1. 聲明wsPerformanceLeague作爲工作表。 Dim wsPerformanceLeague as Worksheet

2. 變化wsPerformanceLeague = Worksheets("PerformanceLeague")到Set wsPerformanceLeague = Worksheets("PerformanceLeague")

你必須使用這個詞Set