Ser Artur » 27 май 2005, 16:09
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Msg
If Target.Address = "$A$1" Then
MsgBox "Holliday" & WeekdayName(Weekday(Now, vbUseSystem), , vbUseSystem)
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Msg
If Target.Address = "$A$1" Then
MsgBox "Holliday" & WeekdayName(Weekday(Now, vbUseSystem), , vbUseSystem)
End If
End Sub