Sub Macro4()

　　'

　　' Macro4 Macro

　　'

　　' 快捷键: Ctrl+r

　　'

　　Range("C1:C23").Select

　　Selection.Find(What:="2014/4/28", After:=ActiveCell, LookIn:=xlFormulas, _

　　LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _

　　MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate

　　End Sub

　　运行提示：

　　运行时错误91

　　对象变量或with块变量未设置。