求帮忙给修改一下，第二个工作表友情提示按钮不灵了，开机弹出的也不出了

cp11888

到期提醒，最好加一个声音提示！！！


Private Sub Workbook_Open()

    t2 = Application.CountIf(Sheet5.Range("G5:G1000"), "试验到期")

    Str1 = "北京时间  " & Format(Now(), "yyyy-mm-dd   aaaa")
    Str2 = "今天共有" & t2 & "个批号的胶砂试块养护到期，需要进行试验。" & Chr(10)
    Str22 = "【2013】：　" & t2 & "个" & Chr(10)
    Str3 = Chr(13) & Space(20) & "承德质信恒通混凝土有限责任公司" & vbCrLf & Space(60) & "提示时间 " & Format(Now(), "hh:mm:ss ") & Chr(10)
    If t2 Then
        MsgBox Str1 & vbCrLf & vbCrLf & Str2 & vbCrLf & Str22 & vbCrLf & "详见各表红色部分!" & Chr(10) & Chr(10) & Str3, 64, "【主任:友情提示】"
    End If

End Sub

cp11888

Excel反应太慢了，什么原因，工作表太多了吗？

cp11888

最近怎么没有跟帖的了，是问题太简单了吗？