Try
[VBA]Sub Example()
Sheet2.Range("A1") = Date
Sheet2.Range("A2").Value = Sheet1.Range("D5").Value
End Sub[/VBA]
Try
[VBA]Sub Example()
Sheet2.Range("A1") = Date
Sheet2.Range("A2").Value = Sheet1.Range("D5").Value
End Sub[/VBA]
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'
Posting Permissions
Reply With Quote