I have tried everything but the array stubbornly refuses to populate
any sheet except the one the code belongs to:

Sub WontChangeWorksheetDestination()

Dim wks As Worksheet
Set wks = Sheets(3)

With wks

Set TheRange = Range(Cells(1, 1), Cells(10, 10))
TheRange.Value = MyArray

End With

End sub

I've tried everything, but because the code is behind a button on
sheet 1 the array populates sheet 1 and doesn't seem to want to
populate any toher sheet no mattwer hw I try to qualify it ... what am
I missing?

Any help gratefully accepted,

Kind regards, Mark

hi dial13,

you missed the point ;-)

replace
Set TheRange = Range(Cells(1, 1), Cells(10, 10))

by
Set TheRange = .Range(.Cells(1, 1), .Cells(10, 10))


--
isabelle



Le 2012-06-03 13:29, dial13 a écrit :
Sub WontChangeWorksheetDestination()

Dim wks As Worksheet
Set wks = Sheets(3)

With wks

Set TheRange = Range(Cells(1, 1), Cells(10, 10))
TheRange.Value = MyArray

End With

End sub

Hahaha thanks a lot, works like a dream:)



On Monday, June 4, 2012 9:11:40 AM UTC+8, isabelle wrote:
hi dial13,

you missed the point ;-)

replace
Set TheRange = Range(Cells(1, 1), Cells(10, 10))

by
Set TheRange = .Range(.Cells(1, 1), .Cells(10, 10))


--
isabelle



Le 2012-06-03 13:29, dial13 a écrit :
Sub WontChangeWorksheetDestination()

Dim wks As Worksheet
Set wks = Sheets(3)

With wks

Set TheRange = Range(Cells(1, 1), Cells(10, 10))
TheRange.Value = MyArray

End With

End sub