実行時エラー 438 の解決策をおしえてください。

VBAのプログラミングで

Worksheets("請求書").Range("A10:F17").ClearContens
の部分にエラーが有ると言うメッセージが出ます。
次が全体になります。

Sub 請求書作成()
Worksheets("請求書").Range("A3").Value = _
Worksheets("売上").Range("D2").Value
Worksheets("売上").Range("A4").AutoFilter Field:=2, _
Criteria1:=Worksheets("売上").Range("D2").Value
Worksheets("売上").Range("B4").Columns.Hidden = True
Worksheets("請求書").Range("A10:F17").ClearContens
Worksheets("売上").Range("A5:G20").Copy
Worksheets("請求書").Range("A10") _
.PasteSpecial Paste:=xlPasteValues
Worksheets("売上").Range("B4").Columns.Hidden = False
Worksheets("売上").Range("A4").AutoFilter

End Sub

エラーの原因を教えてください。

No.2 ベストアンサー 回答者： GooUserラック 回答日時： 2018/05/05 19:59

「t」が抜けてます。

多分「Worksheets("請求書").Range("A10:F17").ClearContents」ですね。

この回答へのお礼

GooUserラックさん

ありがとうございました。
英語力の無さを改めて実感しています。

お礼日時：2018/05/05 20:05

No.1 回答者： runix2007 回答日時： 2018/05/05 19:43

一行ずつ実行してデバックしてください