simora
04-24-2013, 06:21 PM
I am selecting a range of cells in a column to find out if any are blank.
If so, I post data in the blank cell, however, when the Selection.find fails,
( No cells in the selection is blank )
I cant get it to go to another specific routine.
This is the find code.
On Error GoTo Line22
Selection.Find(What:="", After:=ActiveCell, SearchOrder:=xlByRows, SearchDirection:=xlNext, SearchFormat:=False).Select
If ActiveCell.Value = "" Then ActiveCell = TextBox2.Value
ActiveCell.AddComment
End If
Line22:
Else
MsgBox " No empty cells in range "
Any ideas ?
Thanks
If so, I post data in the blank cell, however, when the Selection.find fails,
( No cells in the selection is blank )
I cant get it to go to another specific routine.
This is the find code.
On Error GoTo Line22
Selection.Find(What:="", After:=ActiveCell, SearchOrder:=xlByRows, SearchDirection:=xlNext, SearchFormat:=False).Select
If ActiveCell.Value = "" Then ActiveCell = TextBox2.Value
ActiveCell.AddComment
End If
Line22:
Else
MsgBox " No empty cells in range "
Any ideas ?
Thanks