Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.