Macro-copy and paste a range

[halfthumb]

I have a problem that has me going around In circles.

I have a worksheet with four groups of ranges. The ranges are named
ONE,TWO,THREE and FOUR

What I want to do is, using an InputBox, is to select a range name,Then
when the range is selected-copy it to Cell H1.

Sub CopyRangetoH1()

Dim LIST As Range
Dim One As Range
Dim Two As Range
Dim Three As Range
Dim Four As Range

LIST = InputBox("Enter Number")
Select Case LIST
Case Is = One
ActiveCell = One
'Range("H1") = ActiveRange

Case Is = Two
ActiveCell = Two
'Range("H1") = ActiveRange

Case Is = Three
ActiveCell = Three
' Range("H1")= ActiveRange

Case Is = Four
ActiveCell = Four
' Range("H1")= ActiveRange
End Sub

Paul B

 

[Fluff]

Hello Halfthumb
Give this a go

Sub CopyRangetoH1()

    Dim LIST As String

    LIST = InputBox("Enter Number")
    Range(LIST).Copy Range("H1")

End Sub

 

[halfthumb]

Fluff, works just fine. so simple. Thanks Lots.

Paul B

 

[Fluff]

Not a problem & thanks for the feedback