View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Norman Jones Norman Jones is offline
external usenet poster
 
Posts: 5,302
Default Named ranges and variables

Hi Mats,

Perhaps something like:

Sub Tester02()
Dim CurRange As Range

' Define the 2 named ranges
With Worksheets("Docs")
.Range("A1:B1").Name = "myRange1"
.Range("A7").Name = "myRange2"
End With

If Range("D1") 10 Then '<=== Change condition to suit!
Set CurRange = Range("myrange1")
Else
Set CurRange = Range("myrange2")
End If

Application.Goto CurRange

End Sub


---
Regards,
Norman



"Mats Samson" wrote in message
...
Hello,
I'd like to select a named range that can be different depending the
conditions, and
I'd like to use a variable to contain the named range but the statement
Worksheets("Docs").Range(CurRange).Select
won't accept the CurRange variable.
Let's say I have two named ranges: myRange1 ( for the range a1:b1) and
myRange2 (for the named (range) single cell a7). Depending of the
conditions
I wan't to set CurRange to contain either myRange1 or myRange 2 and the
program to select the right range. (I need to use named ranges as the
position of the named ranges will change during time.)
Is there any good solution?

Best regards
Mats Samson