Hover-over Function
 

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

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

Hover-over Function
 

Mike,
Thanks for your response. I've inserted a module in the workbook I'm
working with and copied your code to this new modue. How do I pass the
"Target" range to this subroutine?

Thanks,
Raul

"Mike Fogleman" wrote:

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

Hover-over Function
 

Mike,
Disregard my previous message. I inserted your code in the worksheet code
module (as you instructed) and it worked like a charm.

Thanks a bunch,
Raul

"Raul" wrote:

Mike,
Thanks for your response. I've inserted a module in the workbook I'm
working with and copied your code to this new modue. How do I pass the
"Target" range to this subroutine?

Thanks,
Raul

"Mike Fogleman" wrote:

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