Select Cells

[brettvba]

Need Some code to select the next empty cell on a page for example
range("a1").select
'where a2 is the next avaliable cell
then a3 and so on?

On 2002-03-13 16:54, brettvba wrote:
Need Some code to select the next empty cell on a page for example
range("a1").select
'where a2 is the next avaliable cell
then a3 and so on?

There are better methods but this old dog is only just learning:

Dim MTCell as Range
for each MTcell in Range("a1:A10")
If ActiveCell = Not Empty Then
(do your thing here)
End If
Next

[SamS]

sorry that was me - forgot to login

On 2002-03-13 16:54, brettvba wrote:
Need Some code to select the next empty cell on a page for example
range("a1").select
'where a2 is the next avaliable cell
then a3 and so on?

Dim cell As Range, rng As Range
Set rng = Columns(1).SpecialCells(xlCellTypeBlanks)
For Each cell In rng
MsgBox cell.Address
Next

On 2002-03-14 00:40, Anonymous wrote:

On 2002-03-13 16:54, brettvba wrote:
Need Some code to select the next empty cell on a page for example
range("a1").select
'where a2 is the next avaliable cell
then a3 and so on?

Or perhaps you are just looking for :-

[A65536].End(xlUp)(2,1).Select


Dim cell As Range, rng As Range
Set rng = Columns(1).SpecialCells(xlCellTypeBlanks)
For Each cell In rng
MsgBox cell.Address
Next