Excel2000 VBA 今日の日付のセルを一番上に移動する

Excel2000 VBA　今日の日付のセルを一番上に移動する

A列に日付が連続で記入されている時、今日の日付をスクロールして一番上に移動する

参考にしたサイト　http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1362089178

コピペ、お手本のようなVBだと思った

Sub test1()
Dim myRag As Range
Set myRag = Range("A:A").Find(What:=Date)　’Set myRag = Cells.Find(What:=Date)　これだと日付のある列はどこでもよい
If Not myRag Is Nothing Then
myRag.Activate
ActiveWindow.ScrollRow = myRag.Row
End If
End Sub

タグ：Excel2000 VBA 日付