Hover-over Function
This will use the cell comment to display the week day. The comment is
mouse-over by default.
Put this code in the worksheet code module:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim wkday As String
Dim comm As Comment
If IsDate(Target) Then
wkday = Weekday(Target)
If ActiveSheet.Comments.Count 0 Then
For Each comm In ActiveSheet.Comments
If comm.Parent.Address = Target.Address Then
Target.Comment.Delete
End If
Next
End If
Target.AddComment "Weekday = " & wkday
End If
End Sub
Mike F
"Raul" wrote in message
...
Is it possible to have subroutine or function that will display the
"=weekday()" of a given date displayed in a message box if the contents of
that cell represents a date?
Ideally I'd like a "hover-over" function that would display the
"=weekday()"
of the cell being hovered-over, but ......
Thanks in advance,
Raul
|