Find next Empty row in Range or MessageBox

[Panik]

Hi, I'm trying to find the next empty row in a specific range (A10:A39). If the cell is empty, then the next empty row is selected. I have the basic figured out, my problem is I would like it to ONLY look in the specific range. EG, I do not want A40 selected. Once A10 - A39 are full, I would like a message box stating all available slots are full.

The line I am using to select the next empty row is:

Range("B10:B39").End(xlDown).Offset(1, 0).Select

But this does not stop at row 40.

Thanks in advance for the help!

 

[Fluff]

How about

Sub NextBlank()
   Dim Rng As Range
   On Error Resume Next
   Set Rng = Range("A10:A39").SpecialCells(xlBlanks)(1)
   On Error GoTo 0
   If Rng Is Nothing Then MsgBox "Full": Exit Sub
   Rng.Select
End Sub

 

[Panik]

PERFECT!!! Thanks!

 

[Fluff]

You're welcome