MS Excel

Téma: Hypertextový odkaz na list makrem

Zaslal/a fakan 24.8.2015 13:36

Zdravím,

potřeboval bych poradit jak makrem doplnit hypertextový odkaz na nově vytvořený list ze šablony. Mám následující makro:

Sub CopyRename()
Dim sName As String
Dim wks As Worksheet
Worksheets("Template").Copy after:=Sheets(Worksheets.Count)
Set wks = ActiveSheet
Do While sName <> wks.Name
sName = Application.InputBox _
(Prompt:="Zadej název nového listu (Jméno zákazníka):")
On Error Resume Next
wks.Name = sName
On Error GoTo 0
Loop
Set wks = Nothing
ActiveSheet.Select
Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Přehled").Select
Range("A1").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub

To mi vytvoří nový list ze šablony a jeho název se vloží na první volný řádek listu "Přehled" a já bych ještě potřeboval aby se stal tento záznam zároveň hypertextovým odkazem na tento nově vytvořený list a aby zůstal tento nový list aktivní po ukončení makra. Případně zda-li by šlo aby se nový list vytvářel jako odkrytý, když list "Template" dám skrýt.

Předem děkuji za rady.

Roman