title: Copying value cell by cell from one excel to another excel
body: <p>I want to copy values from one excel file to another excel file, but on later stages of my project, I may need to cross check the value and then paste it in the new excel file. So I dont want to copy whole sheet at a time. I want to copy a value by value.</p>
  
  <p>I was able to open and switch between to excel file but I m not able to copy and paste the values.
  Following is the code I tried-</p>
  
  <pre><code>Private Sub CommandButton1_Click()
  Dim x As Long
  Dim NumRows As Long
  Set fromwb = Workbooks.Open("G:\Excel\From.xlsx")
  Set towb = Workbooks.Open("G:\Excel\To.xlsx")
  fromwb.Activate
  NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count
  ReDim a(1 To NumRows)
  
  For x = 1 To NumRows
      fromwb.Activate
      a(x) = Cells(x, 1).Value
  
      towb.Activate
      Cells(x, 1).Value = a(x)
  Next x
  
  End Sub
  </code></pre>
  
  <p>Thanking you in anticipation.</p>