添削お願いします

VBAが初心者で申し訳ありません。


Sub SetValue()

If Month(Date) = 8 Then
Sub ClearCell()
Worksheets("Sheet4").Activate
Worksheets("Sheet4").Range("K15").Clear

End Sub
End If
End Sub

今が8月なら　Sheet4　のセルK15　をクリアするものを作ろうとしましたが
上記で　Date　の部分が反転した状態で　End　Subが必要です　とエラーが出ました。

ネット上の初心者向けサイトの切り張りをした状態で他の部分も間違いがあるかと思いますが
どこがおかしいのでしょうか？
使用しているのはExcel2000です。

No.1 ベストアンサー 回答者： watabe007 回答日時： 2012/08/17 22:34

Sub SetValue()

　If Month(Date) = 8 Then
　　Worksheets("Sheet4").Activate
　　Worksheets("Sheet4").Range("K15").Clear
　End If
End Sub


以下、不要
Sub ClearCell()
End Sub

この回答へのお礼

うまくいきました。ありがとうございました。

お礼日時：2012/08/17 22:40