Calendar Control Reference Issues in 97 and 2003

[yunesm]

I have a program that works great for many users. But I had a user show me an error this morning when she opens the file. If she tries to run any macro she gets a "Automation Error Compile Error."

The only difference between her and the other users is that she's running on Excel 97. Everyone else is on 2003.

I found one refence via google that someone else had this problem due to a calendar control reference which wasn't available to Excel 97 users.

So I 've included my code for calling up the userform to see what people think. Any suggestions on how I could change this to work with 97 and 2003? Any other common coding issues that might cuase this error for a 97 user?

Any thoughts are appreciated.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

    Dim r As Range
    
    Select Case Sh.CodeName
        Case "Sheet1"
            Set r = Intersect(Target, Sh.Range("StartDate, D8:D" & Rows.Count))
        Case "Sheet2"
            Set r = Intersect(Target, Sh.Range("D3:E251, G3:G251"))
        Case "Sheet7"
            Set r = Intersect(Target, Sh.Range("D5"))
        Case "Sheet5"
            Set r = Intersect(Target, Sh.Range("D5"))

    End Select
    
    If Not r Is Nothing Then
        UserForm1.Show vbModeless
    Else
        Unload UserForm1
    End If
End Sub