ExcelBanter - View Single Post - I need a macro that copies that data from one cell on one sheet to a cell on another?

-Brian-H-

Sub test()
Set srcSht = Sheets("Sheet1")
Set tgtSht = Sheets("Sheet2")
'will copy A1 to A1...
tgtSht.[a1] = srcSht.[a1]
'will copy data in column A to column C....
tgtSht.Range("C1:C" & srcSht.[a65536].End(3).Row) = _

srcSht.Range("A1:A" & srcSht.[a65536].End(3).Row).Value
End Sub

---
Message posted from http://www.ExcelForum.com/