Hi, I'm trying to do a macro that will automaticly select the first blank
cell that will appear in a row, I have tried the following but it doesn't
select the cell but my message box will give me the right cell adress for the
empty cell.

Sub A()
Dim myCell As Range
Dim NextEmpty As Range

Set myCell = ActiveSheet.Range("c5")
Do
If myCell.Value = "" Then
Set NextEmpty = myCell
Exit Do
Else
Set myCell = myCell.Offset(0, 1)
End If
Loop

MsgBox NextEmpty.Address

End Sub

Change:
MsgBox NextEmpty.Address
to
nextempty.select

But for lots of things, you don't have to select the range to work with it:

with nextempty
.value = date
.numberformat = "mm/dd/yyyy"
end with

(If I wanted the date in that cell.)

raph_baril wrote:

Hi, I'm trying to do a macro that will automaticly select the first blank
cell that will appear in a row, I have tried the following but it doesn't
select the cell but my message box will give me the right cell adress for the
empty cell.

Sub A()
Dim myCell As Range
Dim NextEmpty As Range

Set myCell = ActiveSheet.Range("c5")
Do
If myCell.Value = "" Then
Set NextEmpty = myCell
Exit Do
Else
Set myCell = myCell.Offset(0, 1)
End If
Loop

MsgBox NextEmpty.Address

End Sub

--

Dave Peterson

Add NextEmpty.Select in the line before or after the MsgBox
line.


Doug


raph_baril wrote in message
...
Hi, I'm trying to do a macro that will automaticly select the first blank
cell that will appear in a row, I have tried the following but it doesn't
select the cell but my message box will give me the right cell adress for
the
empty cell.

Sub A()
Dim myCell As Range
Dim NextEmpty As Range

Set myCell = ActiveSheet.Range("c5")
Do
If myCell.Value = "" Then
Set NextEmpty = myCell
Exit Do
Else
Set myCell = myCell.Offset(0, 1)
End If
Loop

MsgBox NextEmpty.Address

End Sub