怎么用宏实现Excel两个sheet之间的定时切换

如何用宏实现Excel两个sheet之间的定时切换?
------解决方案--------------------------------------------------------
Private Sub Workbook_Open()
'定时器设定，此例为定时到11：58：00 ，亦可设为当前时间Now+n 为n时间后触发Show_my_msg
Application.OnTime TimeValue( "11:58:00 "), "Show_my_msg "
end Sub
Sub Show_my_msg()
'处理sheet切换

End Sub

------解决方案--------------------------------------------------------
需要循环的啊，改正一下
1、Thisworkbook
Private Sub Workbook_Open()
ShowMe
End Sub
2、模块
Sub Showme()
If ActiveSheet.Name <> Sheet1.Name Then
Sheet1.Activate
Else
Sheet2.Activate
End If
Application.OnTime Now() + TimeValue( "00:05:00 "), "ShowMe "
End Sub

可以将TimeValue改成：TimeValue( "00:00:01 ")，这样就可以每秒钟切换一次...
关键词：