Frustrating Range selection

[caselton]

Hi all

I have an extract from a something i'm working on

here is the code extract

Set f1 = Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 2))
Set f2 = Range(ActiveCell.Offset(0, 3), ActiveCell.Offset(0, 4))
Set f3 = Range("ActiveCell.Offset(0, 3), ActiveCell.Offset(0, 5)")

All i want to do is define the range for f3 to be for those two values only, not the full range between them
but it will not accept it.
i've tried a few different ways
below was a little test i was doing

Set ss = Range("A1, A3")
 y = Range("A1").Address
 y2 = Range("A3").Address
 Set gh = Range("y, y2")

ss works as it should
gh doesn't , no matter what i do

I'm sure i've missed something small, i'm new to VBA
Any help always appreciated
Cheers
J

 

[shg]

Two ways from among many:

  Set f1 = ActiveCell.Range("B1:C1")
  Set f1 = ActiveCell.Offset(, 1).Resize(, 2)

 

[caselton]

i think you missunderstand the question

i need the f3 range to miss out a cell, say d4 and f4
i would like to select just those values , but not like this:

set test = range("d4,f4")

i would like define the cells first or use activecell command
like
y1 = range("d4")
y2 = range("f4")

set test = range("d4,f4")

but that throws out errors

Cheers for the reply though

 

[shg]

  With ActiveCell
    Set f3 = Union(.Offset(, 1), .Offset(, 3))
  End With
  f3.Select

 

[JoeMo]

What's the reason for not using:

set test = range("d4,f4")

If you want to define single cell variables try:

Sub RangeForTwo()
Set y1 = Range("D4")
Set y2 = Range("F4")
Set test = Union(y1, y2)
test.Select
End Sub

 

[caselton]

beautiful!
Thank you

The reason i need it this way as its constantly charging in the main script