Return Focus
 

I am checking cells for null values. I have the before close event. If a cell
is found to be null then it cancels the close event. After the user clicks OK
I would like it to return focus back to the Cells(rownumber, 8). Meaning
return focus by the cell appearing with the bold outline with the cusor
blinking in the cell.

If Cells(rowNumber, 8) = "" And Cells(rowNumber, 9) = "" And
Cells(rowNumber, 10) = "" Then
emptyRow = True
cancel = True
MsgBox "Status for Sheet " & s & " at Row " &
rowNumber & " Must Be Either Owning, Checking, or Loaned"
Exit Do
Sheets(s).Activate
noValue = rowNumber
End If

Return Focus
 

After:
Sheets(s).Activate
insert:
Cells(rownumber,9).Select
--
Gary''s Student - gsnu200822


"Samuel Looney" wrote:

I am checking cells for null values. I have the before close event. If a cell
is found to be null then it cancels the close event. After the user clicks OK
I would like it to return focus back to the Cells(rownumber, 8). Meaning
return focus by the cell appearing with the bold outline with the cusor
blinking in the cell.

If Cells(rowNumber, 8) = "" And Cells(rowNumber, 9) = "" And
Cells(rowNumber, 10) = "" Then
emptyRow = True
cancel = True
MsgBox "Status for Sheet " & s & " at Row " &
rowNumber & " Must Be Either Owning, Checking, or Loaned"
Exit Do
Sheets(s).Activate
noValue = rowNumber
End If