Mangler jeg en refferencfe eller hvad?

Jeg har lavet et fint regneark til der hvor jeg arbejder... faktisk er det et regneark jeg har "overtaget" fra en tidligere medarbejder.

MEN... jeg har lavet om på nogen små ting og så videre... og den virker osse fint på min + nogen andres Computer. Bare ikke på alles...

Den stopper her:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Address = Range("EXW").Address Or Target.Address = Range("ETA").Address Then
    If Not UserForm2.Calendar1.Visible Then Exit Sub
    Load UserForm2
->  UserForm2.Calendar1.Value = Date  <-
    UserForm2.Show
    End If
End Sub