Excel 2000 Hyperlinks

Posted by Thomas McCabe on March 01, 2001 9:57 AM

Does anyone know if there is a way to not print cells
containing hyperlinks when printing a worksheet? Is there a way to do it using a macro?
Thanks

Posted by cpod on March 01, 2001 11:12 AM

You could make them invisible:

Dim Cell
For Each Cell In Range("a1:i50")
If Cell.Hyperlinks.Count > 0 Then
Cell.Font.Color = Cell.Interior.Color
End If
Next
End Sub

And them bring them back:

Dim Cell
For Each Cell In Range("a1:i50")
If Cell.Hyperlinks.Count > 0 Then
Cell.Font.Color = 16711680
End If
Next
End Sub

Posted by cpod on March 01, 2001 11:19 AM

Never mind - This would only work on a color printer

Posted by Thomas McCabe on March 01, 2001 11:34 AM

Re: Never mind - This would only work on a color printer

It worked cpod. Thank you, that was pure genius!