title: VBA Macro does not run when pressing run
body: <pre><code>Sub Button2_Click()
      Dim R As Range
      Dim C As Range
      Dim Msg As String
  
      With Sheets("data").Range("A1").CurrentRegion
          For Each R In Sheets("Coverage Data").Range("A2:AD2")
  
              Set C = .Rows(1).Find(R.Value, , , xlWhole, , 0)
              If Not C Is Nothing Then
                  .Columns(C.Column).Copy R
              Else
                  Msg = vllf &amp; R.Value
              End If
          Next
  
          Application.CutCopyMode = False     
      End With
  
      If Len(Msg) Then MsgBox "Done" &amp; Msg
  End Sub
  </code></pre>
  
  <p>When clicking run on the following code. nothing happens. Please help what is wrong? No errors</p>