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

如何用宏实现Excel两个sheet之间的定时切换?
如打开一个Excel表格,启用宏!让sheet1和sheet2每隔5分钟切换一次!请问如何实现?

[解决办法]
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 ")，这样就可以每秒钟切换一次...