I want to simply select this cell and the next 25 cells for a quick
fill down.

Range("A2:A25").Select
Selection.FillDown

The above works fine.

BUT -

I want to do this from any cell I am sitting on: (For example)

Range("RC[1]:R[24]C[1]").Select
Selection.FillDown

I cannot make this work with any combination of anything I have tried
or found on this ng.

Anyone have a suggestion?

Thanks in advance.

SFWhite wrote:
I want to do this from any cell I am sitting on: (For example)

Range("RC[1]:R[24]C[1]").Select
Selection.FillDown

I cannot make this work with any combination of anything I have tried
or found on this ng.

Anyone have a suggestion?

Sub Fill25CellsDown()
Selection.Resize(25, 1).Select
Selection.FillDown
End Sub

Regards,
--
Beto
Reply: Erase between the dot (inclusive) and the @.
Responder: Borra la frase obvia y el punto previo.

SF,

ActiveCell.Range("A1:A25").Select
Selection.FillDown

or just

ActiveCell.Range("A1:A25").FillDown

HTH,
Bernie
MS Excel MVP

"SFWhite" wrote in message
m...
I want to simply select this cell and the next 25 cells for a quick
fill down.

Range("A2:A25").Select
Selection.FillDown

The above works fine.

BUT -

I want to do this from any cell I am sitting on: (For example)

Range("RC[1]:R[24]C[1]").Select
Selection.FillDown

I cannot make this work with any combination of anything I have
tried
or found on this ng.

Anyone have a suggestion?

Thanks in advance.

SFWhite,

Try this:

Sub TestMe()
Range(Range(ActiveCell.Address), _
Range(ActiveCell.Address).Offset(23, 0)).FillDown
End Sub

John

"SFWhite" wrote in message
m...
I want to simply select this cell and the next 25 cells for a quick
fill down.

Range("A2:A25").Select
Selection.FillDown

The above works fine.

BUT -

I want to do this from any cell I am sitting on: (For example)

Range("RC[1]:R[24]C[1]").Select
Selection.FillDown

I cannot make this work with any combination of anything I have tried
or found on this ng.

Anyone have a suggestion?

Thanks in advance.

Just one way:

ActiveCell.Resize(25).FillDown

--
Dana DeLouis
Using Windows XP & Office XP
= = = = = = = = = = = = = = = = =


"SFWhite" wrote in message
m...
I want to simply select this cell and the next 25 cells for a quick
fill down.

Range("A2:A25").Select
Selection.FillDown

The above works fine.

BUT -

I want to do this from any cell I am sitting on: (For example)

Range("RC[1]:R[24]C[1]").Select
Selection.FillDown

I cannot make this work with any combination of anything I have tried
or found on this ng.

Anyone have a suggestion?

Thanks in advance.

Thanks to everyone for the quick reply

Both "Offset" and "Resize" solutions worked great.

SF.



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!