hyperlink als actuator voor macro

[bertverm]

ik heb de volgende code gebruikt om een hyperlink te gebruiken als aansturing voor een macro.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    If Target.Range.Address = "$A$1" Then '$A$1 will vary depending on where the hyperlink is
        Macro1 'Place the macro name here
        Exit Sub
    End If

End Sub

om dit te kunnen laten werken moet ik de vba code plaatsen in het bijbehorende blad.

zou ik dit zo kunnen verbouwen dat ik dit in een module of in ThisWorkbook kan plaatsen?

uitleg van de bijlage:
tab "errorlist" bevat de lijst met mogelijke errors.
hiervan worden de nieuwe tabs gemaakt (met de juiste opmaak)
in tab "werkend" doet de hyperlink wat hij moet doen. (namelijk een aantal rijen verbergen)
ik zie alleen niet hoe ik dit automatisch toe kan laten passen op de nieuw aangemaakte tabs.
Bekijk bijlage vraag.xlsm

 

[bertverm]

oh ja, nog een klein dingetje los hiervan, maar ik wil een afbeelding plakken, waarvan de filename gelijk is aan de naam van de active sheet
hoe kan ik dat voor elkaar krijgen, ik zat hieraan te denken, maar blijkt niet te werken

Dim myPath As String
myPath = ("C:\test\" &ActiveSheet.Name&".jpg")

deze code werkt zonder wel als ik het ".jpg" deel weg laat (mypath wordt C:\test\Blad1)

maar .jpg is niet specifiek het probleem want

myPath = ("C:\test\Blad1"&".jpg")

geeft C:\test\Blad1.jpg

alleen de combinatie lijkt niet te werken :S

 

[bertverm]

oh ja, nog een klein dingetje los hiervan, maar ik wil een afbeelding plakken, waarvan de filename gelijk is aan de naam van de active sheet
hoe kan ik dat voor elkaar krijgen, ik zat hieraan te denken, maar blijkt niet te werken

Dim myPath As String
myPath = ("C:\test\" &ActiveSheet.Name&".jpg")

deze code werkt zonder wel als ik het ".jpg" deel weg laat (mypath wordt C:\test\Blad1)

maar .jpg is niet specifiek het probleem want

myPath = ("C:\test\Blad1"&".jpg")

geeft C:\test\Blad1.jpg

alleen de combinatie lijkt niet te werken :S

Geregeld (misschien een beetje omslachtig gedaan, maar het werkt )

Sub test2()
Dim myPict As Picture
Dim myFolder As String
Dim myFile As String
Dim myExtension As String
Dim myPath As String

myFolder = "C:\test\"
myFile = ActiveSheet.Name
myExtension = ".jpg"
myPath = myFolder & myFile & myExtension

With ActiveSheet.Range("A4")
Set myPict = .Parent.Pictures.Insert(myPath)
myPict.Top = .Top
'myPict.Width = .Width
'myPict.Height = .Height
myPict.Left = .Left
myPict.Placement = xlMoveAndSize
End With
End Sub

 

[Warme bakkertje]

Sub test2()
Dim myPict As Picture
    With ActiveSheet.Range("A4")
        Set myPict = .Parent.Pictures.Insert("C:\Test\" & ActiveSheet.Name & ".jpg")
        myPict.Top = .Top
        'myPict.Width = .Width
        'myPict.Height = .Height
        myPict.Left = .Left
        myPict.Placement = xlMoveAndSize
    End With
End Sub

Ik zou niet weten wat hier mis mee is

 

[bertverm]

je hebt gelijk, ik had er een paar spaties te weinig in staat (rond de & tekens)

eerste probleem is opgelost met

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
    If Target.Range.Address = "$A$3" Then '$A$4 will vary depending on where the hyperlink is
        hide_show 'Place the macro name here
        Exit Sub
    End If

End Sub