Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
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.
|Excel VBA Multiple Word Column Headings with Data Validation||2||23|
|Excel IF statement||4||24|
|Calculate number of months in Excel||13||29|
|Conditional fromatting formula||29||33|