aoc
06-04-2007, 12:47 PM
hi,
I have the attached file. When I copy the sheet into another new workbook below code does not work because of not seeing user form. I tried to put the modules and form into personal.xls, but it did not work.What should I do?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$D$1" Then
Target.Value = Format(Date, "dd.mmmm.dddd.yyyy")
End If
If Target.Address = "$D$5" Then
userform.Show
End If
If Target.Address = "$D$6" Then
userform.Show
End If
Application.EnableEvents = True
End Sub
I have the attached file. When I copy the sheet into another new workbook below code does not work because of not seeing user form. I tried to put the modules and form into personal.xls, but it did not work.What should I do?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$D$1" Then
Target.Value = Format(Date, "dd.mmmm.dddd.yyyy")
End If
If Target.Address = "$D$5" Then
userform.Show
End If
If Target.Address = "$D$6" Then
userform.Show
End If
Application.EnableEvents = True
End Sub