If Ws.Name Likeでセルをクリア

Question

前提・実現したいこと

VBAです。
「あ」という文字が含まれているワークシートの
C7からC49のセルをクリア（文字を削除）したいです。

発生している問題・エラーメッセージ

実行時エラー'438'
オブジェクトは、このプロパティまたはメソッドをサポートしていません。

該当のソースコード

Sub test()
    Dim Ws As Worksheet
    For Each Ws In Worksheets
        Ws.Activate
        If Ws.Name Like "*あ*" Then
            Range("C7:C49").ClearContent
    End If
    Next Ws
End Sub

Answer 1

Range("C7:C49").ClearContents

Sが足りないです。

Comments

[eifie]

ありがとうございます！