> > http://www.google.co.jp/search?hl=ja&q=Range%E3%82%AA%E3%83%96%E3%82%B8%E3%82%A7%E3%82%AF%E3%83%88%E3%81%AE%E5%B7%A6%E4%B8%8A%E3%81%AE%E3%82%BB%E3%83%AB&lr=
> .Range(Target.Address).Range("a1")で行けた(;´Д`)ｸｼｺ
> やろうとしてたのはこんなん
> Private Sub xWorksheet_SelectionChange(ByVal Target As Excel.Range)
>     If (fNowEdit_flag = True) Then
>         If (xWorksheet.Name Like "*年*月") Then
>             If (xWorksheet.Parent.Worksheets("ほげ").Range(Target.Address).Range("a1").Value <> "") Then

全然意味わかんないけどできてよかったね

参考：2008/05/26(月)18時05分08秒