Hi Zero635,

Try:

With Range("B25")
.Offset(.Value).Select
End With


However...

Why are you selecting? It is rarely necessary, or desirable, to make
physical selections. So, unless your UI dictates otherwise, try to avoid
selrctions.

End of sermon!

---
Regards,
Norman



"zero635" wrote in
message ...

Ok, I have done the following coding and it works very well.

Sub PltfrmWs()
Range("B25").Activate
If Range("B25") = 0 Then
Range("A24:G29").Delete
Else
Range("A26:G26").Resize(Range("B25").Value).Insert
shift:=xlDown

End If
End Sub


My next question to you guys, is how can I get this to drop the active
cell down past whatever number is in "B25". Lets say "B25" is qty 5.
I need this to move down from "B25"(Currently the active cell) to the
next line after the 5 blank inserts(or whatever qty is in "B25"). Is
this possible, if so can you lead me to the answer?

Thank You,
Chris


--
zero635
------------------------------------------------------------------------
zero635's Profile:
http://www.excelforum.com/member.php...o&userid=24802
View this thread: http://www.excelforum.com/showthread...hreadid=388194