Command button copy array

[Noslien]

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

 

[Chip Pearson]

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" <[email protected]>
wrote in message
news:[email protected]...

 

[Noslien]

Many thanks for your help