Excel 2010 Create a macro to check if cell contains hyperlink then apply hyperlink style

**chasidar** · 09-12-2013, 04:29 AM

I have a worksheet with about 1800 rows and multiple columns. In one particular column, the cell MAY contain a hyperlink. I accidentally removed the hyperlink style (by trying to get rid of a conditional formatting rule ) and now all the cells in the column have the same plain formatting whether they contain a hyperlink or not. Instead of formatting each cell individually, can I create a macro that will check if the cell contains a hyperlink and if so, apply the hyperlink style? How do I do this?
Thank you.

**Andy Pope** · 09-12-2013, 04:37 AM

try this

Sub X()

    Dim rngHLs As Range
    Dim objHL As Hyperlink
    
    For Each objHL In ActiveSheet.Hyperlinks
        If rngHLs Is Nothing Then
            Set rngHLs = objHL.Range
        Else
            Set rngHLs = Union(objHL.Range, rngHLs)
        End If
    Next
    
    rngHLs.Style = "Hyperlink"
            
End Sub

**chasidar** · 09-12-2013, 04:48 AM

Thank you!

Excel 2010 Create a macro to check if cell contains hyperlink then apply hyperlink style

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Excel 2010 Create a macro to check if cell contains hyperlink then apply hyperlink style

Re: Excel 2010 Create a macro to check if cell contains hyperlink then apply hyperlink sty

Re: Excel 2010 Create a macro to check if cell contains hyperlink then apply hyperlink sty

Thread Information

Users Browsing this Thread

Similar Threads

Macro or hyperlink for sending mail from excel 2010

I need to insert a hyperlink in the middle of a cell that contains text in Excel 2010.

How do I create a Hyperlink in Excel from Word Macro

[SOLVED] How do I create a hyperlink to a cell with the hyperlink function

Apply Hyperlink to Text in Cell

Bookmarks

Bookmarks

Posting Permissions