title: Excel stopped working while using find
body: <p>I'm Working on a code to find a row which has "1263_Estamp_En" in Range "J1" and wan to select the same column and paste it to another workbook but while running the code excel stop working and restart itself, please help how can I search the range and select the value. Below is the code...</p>
  
  <pre><code> Sub Search()
  
  Dim A As Range
  Dim myRng As Range
  Dim R As Range
  Dim Col
  
  ThisWorkbook.Sheets("Result").Activate
  Set R = Range("A1:Z1")
  ThisWorkbook.Sheets("Sheet1").Activate
  Set A = Range("A1")
  myRng = R.Find(what:=Str(A), LookIn:=xlValue)
  Cells(myRng.Row, myRng.Column).Select
  Col = Selection.Column
  Col.select
  Range(selection,selection.end(xldown)).copy
  Thisworkbook.Sheets("Sheet2").Activate
  Range("A1").Pastespecial xlPasteValues
  
  End Sub
  </code></pre>