EXCEL中，用VBA进行时间提醒设置的问题

Question

Private Sub Workbook_Open()
For i = 2 To Sheet1.UsedRange.Rows.Count
If (Day(Date) = Day(Sheet1.Cells(i, 2).Value)) Then
MsgBox (Sheet1.Cells(i, 2).Value & "该合同到了收款日期")
End If
Next i
For i = 2 To Sheet1.UsedRange.Rows.Count
If (Day(Date) = Day(Sheet1.Cells(i, 2).Value)) Then
MsgBox (Sheet1.Cells(i, 2).Value & "该合同到了收款日期")
End If
Next i
For i = 3 To Sheet1.UsedRange.Rows.Count
If (Day(Date) = Day(Sheet3.Cells(i, 2).Value)) Then
MsgBox (Sheet3.Cells(i, 2).Value & "该合同到了收款日期")
End If
Next i
End Sub

这个语句有点罗嗦啊，谁=知道怎么把sheet1-sheet3用一个语句表示了呢，另外MsgBox (Sheet3.Cells(i, 2).Value & "该合同到了收款日期")
语句中，如何让Sheet3.Cells(i, 2).Value 显示的是工作表的名称，假设我把sheet3名称改为了“哈哈”
最好给我弄个完整的编程，我好改动啊

Answer 1

　　1、在Excel中新建一个文档，并将它命名为“提醒.xls”。
　　2、执行菜单栏中的“工具”→“宏”→“Visual Basic编辑器”命令，进入VBA编辑状态。

　　3、在“工程资源管理器”窗口中，选中“VBAProject（提醒.xls）”选项，然后执行菜单栏中的“插入”→“模块”命令，插入一个名为“模块1”的新模块。

　　4、选中“模块1”，执行菜单栏中的“视图”→“属性窗口”命令，在打开的“属性”窗口中将它更改为“提醒”。

　　5、在“提醒”模块的代码窗口中输入如下所示的代码：

　　Sub auto_open()　　　　 '设置一个自动运行的宏--auto_open

　　Application.OnTime TimeValue("09:30:00"), "tx"
'设置提醒时间为09:30:00（可以根据实际需要进行修改），设置调用提醒宏
　　 Application.OnTime TimeValue("010:00:00"), "tx"　'再设置提醒一次。
　　 End Sub
　　 Sub tx()　　　　　　'设置一个显示提醒消息的宏。
　　 msg = MsgBox("订购一张2005年1月1日北京——海南的机票！", vbInformation, "赶快订机票")
　　 End Sub
　　提示：

　　可以设置多个提醒宏（tx1、tx2……），只需要在自动运行宏中分别设置调用的时间，即可实现多个消息的定时提醒。

　　6、保存代码，并退出VBA编辑状态。

　　7、当设定的时间到来时，系统将弹出提示框进行提醒。

Answer 2

　　1．在Excel中新建一个文档，并将它命名为“提醒.xls”。
　　2．执行菜单栏中的“工具”→“宏”→“Visual Basic编辑器”命令，进入VBA编辑状态。

　　3．在“工程资源管理器”窗口中，选中“VBAProject（提醒.xls）”选项，然后执行菜单栏中的“插入”→“模块”命令，插入一个名为“模块1”的新模块。

　　4．选中“模块1”，执行菜单栏中的“视图”→“属性窗口”命令，在打开的“属性”窗口中将它更改为“提醒”。

　　5．在“提醒”模块的代码窗口中输入如下所示的代码：

　　Sub auto_open()　　　　 '设置一个自动运行的宏--auto_open
　　Application.OnTime TimeValue("09:30:00"), "tx"
　　'设置提醒时间为09:30:00（可以根据实际需要进行修改），设置调用提醒宏
　　Application.OnTime TimeValue("010:00:00"), "tx"　'再设置提醒一次。
　　End Sub
　　Sub tx()　　　　　　'设置一个显示提醒消息的宏。
　　msg = MsgBox("订购一张2005年1月1日北京——海南的机票！", vbInformation, "赶快订机票")
　　End Sub
　　提示：

　　可以设置多个提醒宏（tx1、tx2……），只需要在自动运行宏中分别设置调用的时间，即可实现多个消息的定时提醒。

　　6．保存代码，并退出VBA编辑状态。

　　7．当设定的时间到来时，系统将弹出提示框进行提醒。

Answer 3

Private Sub Workbook_Open()
Dim i&, sh
For Each sh In Array(Sheet1, Sheet2, Sheet3)
With sh
.Activate
For i = 2 To .Cells(65536, 2).End(xlUp).Row
If Int(Date) = Int(.Cells(i, 2).Value) Then
.Rows(i).Select
MsgBox .Cells(i, 2).Value & Chr(10) & "该合同到了收款日期"
End If
Next i
End With
Next
End Sub

追问

很好用的，谢谢，但是还有一个问题你还没回到我，就是怎么把 MsgBox .Cells(i, 2).Value & Chr(10) & "该合同到了收款日期"
这个对话框中显示的不是cells（i,2)的内容，而是标签的名字，假如我把sheet2改为了客户的名字