VBA 実行時エラーで、"プロパティまたはメソッド

質問

・Sheet1(コード)
Private Sub CommandButton1_Click()
Call aaa
End Sub

・Module1(コード)
Sub aaa()
Dim wb As Workbook
Dim ws As Worksheet

Workbooks.Open ("c:\test.xls")
Set wb = Workbooks("test.xls")
Set ws = wb.Worksheets("Sheet1")

wb.ws.Range("A2").Value = "CCC"

End Sub

wb.ws.Range("A2").Value = "CCC"の部分で
以下の実行エラーが出ます。

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

Set wb = Workbooks("test.xls")
Set ws = wb.Worksheets("Sheet1")
の部分で特にエラーも出ないので、オブジェクトの取得は成功していると
思うのですが、WorkSheetオブジェクトのwsからRangeメソッドを呼ぶことが
できません。
動かない原因と対策を教えてください！！

回答No.1

TAKA_R · ベストアンサー

理由はワークブックの記述がかぶっているからです。
rangeの前のwb.はいりません。

お礼

動作しました！！！

wsはwbからとってきているわけだから、もうどのブックかは
特定されているんですね。
というか、そもそもオブジェクトの使い方が間違っているというか。。

とてもうれしいです！ありがとうございます！