Hello,
The below code loops thought all sheets in a workbook and creates a link to specific cells in a sheet named Index. If no value was entered in the cell a link is still created but does not display a value thereby displaying a value when the user makes an entry. This is true on all cells but those formatted for dates. If a user does not enter a value in a date formated cell a link is created on the Index sheet but the value 1/0/1900 is displayed.
How can I alter my code so no date is displayed on the Index sheet if the user does not enter a value in the date formatted cells but the link remains?
If it is necessary to post the complete procedure let me know.
Thanks
Ron
For i = Sheets("Index").Index + 1 To WB.Sheets.Count
Sheets(i).Select
CurSheet = ActiveSheet.Name
With WB.Sheets("Index")
.Cells(rCount, 1).Formula = "='" & CurSheet & "'!" & "$B$2"
.Cells(rCount, 3).Formula = "='" & CurSheet & "'!" & "$D$2"
.Cells(rCount, 10).Formula = "='" & CurSheet & "'!" & "$D$7"
End With
The below code loops thought all sheets in a workbook and creates a link to specific cells in a sheet named Index. If no value was entered in the cell a link is still created but does not display a value thereby displaying a value when the user makes an entry. This is true on all cells but those formatted for dates. If a user does not enter a value in a date formated cell a link is created on the Index sheet but the value 1/0/1900 is displayed.
How can I alter my code so no date is displayed on the Index sheet if the user does not enter a value in the date formatted cells but the link remains?
If it is necessary to post the complete procedure let me know.
Thanks
Ron
For i = Sheets("Index").Index + 1 To WB.Sheets.Count
Sheets(i).Select
CurSheet = ActiveSheet.Name
With WB.Sheets("Index")
.Cells(rCount, 1).Formula = "='" & CurSheet & "'!" & "$B$2"
.Cells(rCount, 3).Formula = "='" & CurSheet & "'!" & "$D$2"
.Cells(rCount, 10).Formula = "='" & CurSheet & "'!" & "$D$7"
End With