title: Start macro by double click for multiple cell range
body: <p>Im trying to start a macro when someone double-clicks a certain range of cells. The compleet sub I got now is: </p>
  
  <pre><code>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
  
  If Not Application.Intersect(Target, Range("F5")) Is Nothing Then
  cancel = True
  Dim GoogleMapsCheckLink As String
  GoogleMapsCheckLink = "https://www.google.nl/maps/place/" + Range("F5").Value + " " + Range("F6").Value + " " + Range("F7").Value
  ActiveWorkbook.FollowHyperlink GoogleMapsCheckLink
  GoogleMapsCheckYN.Show
  End If
  
  
  If Not Application.Intersect(Target, Range("B52, B61, D52, D61")) Is Nothing Then
      cancel = True
      macro
  
  
  End If
  
  End Sub
  </code></pre>
  
  <p>But whenever I select one of the cells e.g. B52, B61, D52 or D61 I get a compile error with the message:</p>
  
  <blockquote>
    <p>Compile error:</p>
    
    <p>Wrong number of arguments or invalid property assignment</p>
  </blockquote>
  
  <p>The word Range is highlighted.</p>
  
  <p>My question is of course what am I doing wrong currently?</p>
  
  <p><strong>EDIT:</strong></p>
  
  <p>After changing Range to</p>
  
  <pre><code>Range("B52, B61, D52, D61")
  </code></pre>
  
  <p>I get another error:</p>
  
  <blockquote>
    <p>Run-time error '1004':</p>
    
    <p>Method ' Range' of object'_Worksheet' failed</p>
  </blockquote>
  
  <p>Btw I also got other macros that are being activated through double clicking a certain cell value and those do work. The error only occurs when I got multiple cells as range...</p>