You can use the Offset property of the Range object. E.g.,

Dim Rng As Range
Dim Rng2 As Range
Set Rng = Range("A1") ' or whatever
Set Rng2 = Rng.Offset(0,3) ' 3 cols to the right


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"Kurt Barr" <Kurt wrote in
message
...
I have a piece of code that I am using to find the first blank
cell in a
range. I want to be able to then go over a specific number of
columns from
that blank cell to paste a formula in it. Is there a macro that
I can use to
do that?