Try something like

Worksheets("Sheet2").Range("A1:B2").Value = _
Worksheets("Sheet1").Range("A1:B2").Value


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Noslien"
wrote in message
...

I have a command button on sheet1 of a work sheet, part of what
it does
is copy a range of cells to sheet 2. The code I am using seems
rather
crude
For j = 1 To 2
For k = 1 To 2
Sheets("Sheet2").Cells(j, k) = Sheets("Sheet1").Cells(j, k)
Next k
Next j

Is there a smarter way of doing this by defing arrays in both
sheets
and making sheet 2 array = sheet 1 array?

Grateful for your advices


--
Noslien
------------------------------------------------------------------------
Noslien's Profile:
http://www.excelforum.com/member.php...o&userid=31701
View this thread:
http://www.excelforum.com/showthread...hreadid=514186