Dynamic Ranges

[Tridiro]

Hello, I'm having problems finding exactly what I'm looking for, and understanding the method of changing the the formula.

I need a dynamic range that starts 4 cells to the right of the active cell and goes to the end of the used cells of that ROW. "NOT COLUMN"

Please help ! thanks

 

[jim may]

Maybe something like this..........

Sub Foo()
Dim Rng As Range
Set Rng = Range(ActiveCell.Offset(, 4), ActiveCell.Offset(, 4).End(xlToRight))
End Sub

 

[Smitty]

This is very similar to Jim's method, but uses End(xlToLeft), which won't hiccup if you have gaps in your data:

Range(ActiveCell.Offset(, 4), Cells(ActiveCell.Row, Columns.Count).End(xlToLeft))

HTH,

Heya Jim - Did you get blasted by that snow or are you too far South?

 

[jim may]

Good Catch Smitty -- Jim

 

[jim may]

Smitty, Fortunately... too far south - yeah!!!!!

 

[Tridiro]

Thanks to both of you, and God bless