macro koppel aan een cel

[Paul Groote S]

Hoi

Ik ben bezig met een macro maar kom er niet uit. De bedoeling is: wanneer er op een bepaalde cel geklikt wordt, dat er dan een macro gaat draaien. Ik heb wat zitten prutsen maar het lukt me niet. Ik heb het volgende geprobeerd

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
    
    If Target = Range("F6") Then
        If MsgBox("Wilt u naar de gevens van Januari", vbYesNo) = vbYes Then
            Sheets("Januari").Visible = True
        End If
    End If
End Sub

Er klopt iets niet met het bereik maar ik weet niet wat. Kan iemand mij hierbij helpen?

Alvast bedankt Paul

 

[Wigi]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
    
[B]    If Target.Address = "$F$6" Then[/B]
        If MsgBox("Wilt u naar de gevens van Januari", vbYesNo) = vbYes Then
            Sheets("Januari").Visible = True
        End If
    End If
End Sub

Wigi

 

[Paul Groote S]

Dankje wel
Het werkt. maar nu heb ik nog een vraag. ik wil dat hij in de te open sheet meteen de opmaak veranderd zodat je een mooi overzicht krijgt.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
        If Target.Address ="$F$9".Value Then
        If MsgBox("Wilt u naar de gevens van Januari", vbYesNo) = vbYes Then
            Teller = 0
            Sheets("Januari").Visible = True
            Sheets("Januari").Select
            Range("A1").Select
            Do Until Selection = ""
                Selection.EntireColumn.Hidden = True
                Selection.Offset(0, 1).Select
            Loop
            Range("A1").Select
            Do Until Selection = "SALES_DOCUMENT"
                Selection.Offset(0, 1).Select
            Loop
            Selection.EntireColumn.Hidden = False
            Range("A1").Select
            Do Until Selection = "SO_item"
                Selection.Offset(0, 1).Select
            Loop
            Selection.EntireColumn.Hidden = False
            Range("A1").Select
            Do Until Selection = "CDD"
                Selection.Offset(0, 1).Select
            Loop
            Selection.EntireColumn.Hidden = False
            Range("A1").Select
            Do Until Selection = "SID"
                Selection.Offset(0, 1).Select
            Loop
            Selection.EntireColumn.Hidden = False
            Range("A1").Select
            Do Until Selection = "CCD-SID"
                Selection.Offset(0, 1).Select
            Loop
            Selection.EntireColumn.Hidden = False
            
        End If
    End If

De code werkt als hij in een module staat maar ondere deze Sub niet. Hij krijgt een fout bij "Range("A1").Select" Ligt dit eraan dat het een code is die onder een werkbald zit?
Weet iemand waar dit aan ligt en heeft hier een oplossing voor.

Alvast bedankt
Paul