Next Blank Cell
One way:
Public Sub SelectFirstBlankCellInRow()
Const cnPARTICULARROW As Long = 2
With Cells(cnPARTICULARROW, 1).Resize(1, 2)
If Application.CountA(.Cells) < 2 Then
.Item(2 + IsEmpty(.Item(1).Value)).Select
Else
.Item(1).End(xlToRight).Offset(, 1).Select
End If
End With
End Sub
Change cnPARTICULARROW as needed to your particular row number.
In article ,
mushy_peas wrote:
I need a macro that selects the next blank cell in a particaular ROW?
|