検索後のセルの選択を正しくしたい

質問

Excel2007でマクロ作成中の初心者です。

以下のコードの中で(1)のところがうまく作動できません。
ここの ActiveCell.Select　を正常にするにはどうしたらよいかご教示をお願いします。

Sub 最終日の検索()
Dim FC As Range
Dim mydate As Date

mydate = Range("BQ5").Value
For Each FC In Range("BR30:BR300")
If FC.Value = DateValue(mydate) Then
Exit For
End If
Next
If FC Is Nothing Then
MsgBox "みつかりませんここでおわりです"
Exit Sub
End If
MsgBox "見つかりました" & vbLf & FC.Address(0, 0) & vbLf & FC.Value

' ' ここに処理を追加したい
ActiveCell.Select　’----------(1)
Selection.Offset(0, 45).Select
ActiveCell.Select

貼付けしてあるかどうか

Set FC = Nothing
End Sub
----------------------------------
Sub 貼付けしてあるかどうか()
If ActiveCell.Value = "※※" Then
MsgBox " 既に貼付けしてあります"
Else
MsgBox "貼付けしてないので処理します"
End If
End Sub

回答No.1

bin-chan · ベストアンサー

ForEachで FCを使ってるから

FC.Select　’----------(1)

じゃないですか？

お礼

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