Re: Problems accessing names across worksheets

Since a range name is defined try these instead

Step = Range("step_inp")
Set Inpt = Range("alpha1")
Set Loc = Range("stat1")


<alexander.krol@xxxxxxxxx> wrote in message
news:1143584893.964550.37650@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
(also posted on microsoft.public.excel.misc)

Hi-

Having a problem with accessing the "alpha1" name below (defined in
*** "Data") while running this simple macro in *** "Calc" - excel
gives me a runtime 1004 error:

(fyi - never used VB before this, so that may be the problem ;)

Essentially, there is no problem accessing both "step_inp" or "stat1"
since the macro is run from the "Calc" work***, but it breaks on the
line marked with the ** - how do I fix this?

Begin Code:
-----------------

Sub Permute()

Dim Step As Double
Dim Inpt As Range
Dim Loc As Range

Sheets("Calc").Range("step_inp").Select
Step = ActiveCell.Value
Set Inpt = Sheets("Data").Range("alpha1")
Set Loc = Sheets("Calc").Range("stat1")

**Inpt.Select**
ActiveCell.Value = -1 * Step

For i = 0 To Round(80 / (Step * 100))
Inpt.Select
ActiveCell.Value = ActiveCell.Value + Step
Loc.Select
Selection.Copy
Loc.Offset(i + 1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i

End Sub
________
End Code

Any help is much appreciated.

Thanks,
-Alex



.