title: Type Mismatch with Variant / Integer
body: <p>Trying to get this sheet in working order for my work and following this video on YouTube: <a href="https://www.youtube.com/watch?v=0ahYoy5L3ec" rel="nofollow noreferrer">https://www.youtube.com/watch?v=0ahYoy5L3ec</a>.</p>
  
  <p>I have followed the formula exact and tried some basic troubleshooting but my knowledge and use of VBA is basic at best. </p>
  
  <p>Any help on this would be massively appreciated. </p>
  
  <p>I have an example of the code which is causing me a problem below: </p>
  
  <p>(I managed to get to the section of code where I am supposed to be creating the All Pages access for users)</p>
  
  <p>The error seems to be highlighted in the debugger for this line: </p>
  
  <p><code>If Target.Value = Empty Then Range("H" &amp; Target.Row &amp; ":Q" ^ Target.Row).Value = "Ð"</code>
  window watch says it is a variant/integer</p>
  
  <pre><code>Option Explicit
  
  Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  
  If Not Intersect(Target, Range("I4:Q8")) Is Nothing Then```
  
      If Target.Value = "Ð" Then
          Target.Value = "Ï"
          Exit Sub
      End If
  
      If Target.Value = "x" Then Target.Value = "Ð"
      If Target.Value = "Ï" Then Target.Value = "x"
      If Target.Value = Empty Then Target.Value = "Ð"
  
  End If
  
  If Not Intersect(Target, Range("H4:H8")) Is Nothing Then
      If Target.Value = "Ð" Then
          Range("H" &amp; Target.Row &amp; ":Q" ^ Target.Row).Value = "Ï"
          Exit Sub
      End If
      If Target.Value = "x" Then Range("H" &amp; Target.Row &amp; ":Q" ^ Target.Row).Value = "Ð"
      If Target.Value = "Ï" Then Range("H" &amp; Target.Row &amp; ":Q" ^ Target.Row).Value = "x"
      If Target.Value = Empty Then Range("H" &amp; Target.Row &amp; ":Q" ^ Target.Row).Value = "Ð"
  End If
  
  End Sub
  </code></pre>