エクセルvbaのコンパイルエラー

以下のようなvbaを作成したのですが、コンパイルエラー（subまたはfunctionが定義されていません）が出てしまいます。
どこが間違っているのでしょうか？

sub 会議資料()
dim wbs as workbook
dim wbd as workbook
dim wss as worksheet
dim wsd as worksheet
dim sh as variant
dim k as long

set wbd = workbooks.("業績資料.xlsx")
set wsd = wbd.worksheets("６月")

set wbs = workbooks("作業時間.xlsx")
for each sh in array("部門A","部門Ｂ")
set wss = wbs.worksheets(sh)
wsd.cells(2+k,"f"). value = getsum(wss.cells(8,"aw"))
wsd.cells(2+k,"f"). value = getsum(wss.cells(8,"aw"))
wsd.cells(2+k,"f"). value = getsum(wss.cells(8,"aw"))
k=k+4
next
end sub

No.2 回答者： t_fumiaki 回答日時： 2017/07/05 12:13

getsumをPublic Functionとして自分で作る必要があります。

標準には無いから。

No.1 回答者： NURU_osan 回答日時： 2017/07/05 07:47

Excel VBAでGetsumなんて初めて見ましたが、それじゃないですか？