Please follow following steps
1. add control toolbox to the toolbar (toolbarrightclickcontrol toolbox)
2.add a command button on worksheet 1
3.Right click command buttonview code
4.then add following code in the code window:-

Private Sub CommandButton1_Click()
dim i as integer
For i=1 To 4
Application.Worksheets("sheet2").Cells(i, 1).Value= Application.
Worksheets("sheet1").Cells(i, 1).Value
next
End Sub

Now You got it!

Have a happy time.....




Chris
------
Convert your Excel spreadsheet into online calculator.
http://www.spreadsheetconverter.com

--
Chris
------
Convert your Excel spreadsheet into online calculator.
http://www.spreadsheetconverter.com

Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200901/1