Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
The code is great and does just as intended, i.e. removes every hyperlink in a worksheet in one step. However, I just noticed that it also removes all formatting for the cells which previously had hyperlinks.
Sub noHyper() Dim lnk As Hyperlink Dim addr As Range Dim delText As Boolean delText = MsgBox("Delete Cell Text as well as link?", vbYesNo, "Hyperlink Delete") = vbYes For Each lnk In ActiveSheet.Hyperlinks Set addr = ActiveSheet.Cells(lnk.Range.Row, lnk.Range.Column) lnk.Delete If delText Then addr = "" Next End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
12 Experts available now in Live!