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,

Am Sun, 3 Jun 2012 10:29:01 -0700 (PDT) schrieb dial13:

With wks

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

End With

try:

With wks
Set TheRange = .Range(.Cells(1, 1), .Cells(10, 10))
TheRange.Value = MyArr
End With


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Hi Claus,

Thanks for the help, that works, kind regards, Mark

On Monday, June 4, 2012 1:48:45 AM UTC+8, Claus Busch wrote:
Hi,

Am Sun, 3 Jun 2012 10:29:01 -0700 (PDT) schrieb dial13:

With wks

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

End With

try:

With wks
Set TheRange = .Range(.Cells(1, 1), .Cells(10, 10))
TheRange.Value = MyArr
End With


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2