Combine two codes

[Kahar007]

Hi there,

Can somebody combine the following codes for me, please??

I am getting "Ambiguous name detected:Worksheet_BeforeDoubleclick" error

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("D10:E110,G10:G110")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub
--------------------

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 7 And (Target.Row >= 9 And Target.Row <= 110) Then

    Application.ScreenUpdating = False
    
    Sheet = ActiveCell.Offset(0, -1).Value
    
    If Worksheets(Sheet).Visible = False Then
        Worksheets(Sheet).Visible = True
        ActiveCell.Value = "ChrW(&H2713)"
    Else
        Worksheets(Sheet).Visible = False
        ActiveCell.Value = ""
    End If
    
    Application.ScreenUpdating = True

End If
Cancel = True

End Sub

Thanks

[YasserKhalil]

Hello
May be

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("D10:E110,G10:G110")) Is Nothing Then
        Application.EnableEvents = False
            If ActiveCell.Value = ChrW(&H2713) Then
                ActiveCell.ClearContents
            Else
                ActiveCell.Value = ChrW(&H2713)
            End If
            Cancel = True
        Application.EnableEvents = True
    End If
    
    If Target.Column = 7 And (Target.Row >= 9 And Target.Row <= 110) Then
        Application.ScreenUpdating = False
            Dim sheet As String
            sheet = ActiveCell.Offset(0, -1).Value
    
            If Worksheets(sheet).Visible = False Then
                Worksheets(sheet).Visible = True
                ActiveCell.Value = "ChrW(&H2713)"
            Else
                Worksheets(sheet).Visible = False
                ActiveCell.Value = ""
            End If
        Application.ScreenUpdating = True
        Cancel = True
    End If
End Sub

[Kahar007]

Thanks Heaps!!!!

[YasserKhalil]

You're welcome. Glad I can offer some help
Please mark the thread as solved