VBA Excel code not working properly (HELP!)

[zulfer7]

This is a section of code I have been working on whose purpose is to copy
data from the Timing Maps worksheet, click a hyperlink, and then when the
next file comes up to make a new sheet in the hyperlinked worksheet, paste
the data from the Timing Maps worksheet, and then rename the sheet to
whatever is in cell A1. This code works good up until the hyperlink, once I
get into the hyperlinked document it only pastes 1 cell from the Timing Maps
worksheet and doesn't rename the new worksheet. What I really want this to
do is copy the timing maps worksheet into the new spreadsheet but the problem
is the name of the worksheet has to be created by a concatenated string which
turns into a hyperlink in the earlier part of the code. If someone could
help with a code to open a worksheet whose directory and structure is located
in a cell is what I need. Please help.

Sheets("Timing Maps").Select
Range("AF107").Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Selection.Copy
Sheets("VerificationFormat").Select
Range("E3").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets.Add
Selection.Paste
ActiveSheet.Name = Range("A1").Value
ActiveWorkbook.Close

 

[Barb Reinhardt]

This is what you need to do to open a workbook

Workbooks.Open Filename:= _
"C:\Documents and Settings\Customer\My Documents\Worktime.xls"

 

[zulfer7]

I need something like this but this doesn't work.

Workbooks.Open Filename:= _
Range("A1").Value _

(The Range contains a hyperlink)

 

[Jon Peltier]

You need to put the path and file name into the cell for .Value to contain
the path and file name.

Alternatively, you could use

Workbooks.Open Filename:= _
Range("A1").Hyperlinks(1).Address

- Jon