VBA - BeforeDoubleClick Multiple Ranges In One Code

[Lewzerrrr]

Hey,

I need to add a double click code for a multiple of cells, is it possible to condense it all under one code as for now I have it all seperated e.g

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)    If Not Target.Address = "$E$94" Then Exit Sub
     Sheets("TS Newness Tracker").Visible = True
     
End Sub

If I try to add another one it gives me an ambigious name detected e.g adding this underneath

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Target.Address = "$E$120" Then Exit Sub
     Sheets("Linear & Options").Visible = True
     
End Sub

So how can I add these all together?

Thanks

 

[Warship]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Select Case Target.Address
        Case "$E$94"
            Sheets("TS Newness Tracker").Visible = True
        Case "$E$120"
            Sheets("Linear & Options").Visible = True
        Case Else
            Exit Sub
    End Select
End Sub