Hi all-

I'm trying to write some code to generate an appointment
book, with each worksheet being a different day, with a
master calendar page with clickable links that will take
the user to the clicked day's sheet. The sheets are named
with the date, ie, 10-14-03. The variable xSheet is the
name of the sheet, ie "10-14-03". I've tried using this
code:

Sub AddLink()
Sheets("Calendar").Activate
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
xAddress = xSheet & "!R1C1"
ActiveSheet.Hyperlinks.Add Anchor:=Selection,
Address:="", SubAddress:=xAddress, TextToDisplay:=xSheet
End Sub

It does generate a link, but when clicked, it comes up
with a Reference Not Valid error. Can someone help me
tweak this code so it works?

Thanks,
Marty