Dim Hyperlink

**Blesbie** · 08-08-2017, 10:26 AM

Hej,
I like to copy some cells from a document I hyperlinked in my original document. The following code is working perfect:

Sub Perfect ()
       With Range("A1:A3")
        .Formula "='hyperlinkedFile.xlsx'!A1"
        .Value = .Value
    End With
End Sub

But I want to replace the concrete name of the document by something like

Dim File As String
File = ActiveCell.Text (or so)

to use it in

.Formula "='File'!A1"

But this is not working. Who knows the solution? :-)
I'm really glad for help
Regards
Monica

**AlphaFrog** · 08-08-2017, 10:45 AM

Try something like this...

Sub Perfect()
    
    Dim File As String
    File = ActiveCell.Text
    
       With Range("A1:A3")
        .Formula "='" & File & "'!A1"
        .Value = .Value
    End With
End Sub

**Blesbie** · 08-08-2017, 11:41 AM

Perfect!!! Exactly the right solution :-)
Thanks so much

Dim Hyperlink

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Dim Hyperlink

Re: Dim Hyperlink

Re: Dim Hyperlink

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] With Hyperlink formula & vba, I want to copy text of hyperlink to the cell it's linked to

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

Using Vlookup to pull hyperlink from Master Hyperlink file list.

[SOLVED] How to open the Hyperlink formula's sheet and hide all sheets except clicking Hyperlink

Using HyperLink Function in a Dropdown List does not give the Hyperlink functionality

[SOLVED] RE: Moving rows with Hyperlink doesn't move hyperlink address

Intra-workbook hyperlink: macro/function to return to hyperlink ce

Bookmarks

Bookmarks

Posting Permissions