I' still not sure about what you are asking, by your code alone. Please
describe what you are trying to accomplish.
--
Cheers,
Ryan


"RyanH" wrote:

Try this. This will copy you selection to the adjacent 4 columns.

Selection.AutoFill Destination:=Range("T6:AB" & LastRow),
Type:=xlFillDefault

Hope this helps!
--
Cheers,
Ryan


"ryguy7272" wrote:

It just changed to 7 columns. :)
That's trivial though.

Thanks for the look Jim, but that didn't work.

I thought it may be something like this:
Selection.AutoFill Destination:=Range(("T6:" & lastRow), Cells(Lrow,
7)).Select

However, this doesn't work wither.


I'm sure it is possible, I'm just not seeing it right now...

Any other ideas?



Thanks,
Ryan---

--
RyGuy


"Jim Thomlinson" wrote:

Try this... Not sure if you want to format all four columns or just the 4th
column over. Your code is 4th column over...

Selection.AutoFill Destination:=Range("T6:T" & lastRow).Offset(0, 4),
Type:=xlFillFormats
--
HTH...

Jim Thomlinson


"ryguy7272" wrote:

I am trying to select a dynamic range and fill the formatting right four
columns. The code that I have come up with is shown below:

Selection.AutoFill Destination:=Range("T6:T" & lastRow).ActiveCell.Offset(0,
4).Select, Type:=xlFillFormats

This is part of a larger loop, which works fine when this line removed.

It is probably just a period or something; just can't figure it out.


Thanks in advance,
Ryan----

--
RyGuy