Try this

Sub test()
Dim rng As Range
On Error GoTo BodemUp
Set rng = Range("AACash")
rng.Cells.SpecialCells(xlCellTypeBlanks).Cells(1). Select
Exit Sub
BodemUp: MsgBox "No empty cell"
End Sub



--
Regards Ron de Bruin
http://www.rondebruin.nl


"tig" wrote in message oups.com...
I've found some posts that cover something similar to what I'm trying
to do, but I've not been able to apply it to my situation. It maybe
just syntax.

I have a named range that covers A7-A16. I need to find the first
blank cell in that range. I tried to use:

Set rng = Range("AACash")
rng.Find("").Select

but I get a runtime 91 error: "Object variable or With block variable
not set".

Maybe I'm just missing something. Any ideas or alternatives to apply?

TIA

Here's my code so far:

Sub Asset_Allocation()

Dim lastrow&
Dim assettype$
Dim currentrow&
Dim acct_type1$
Dim acct_type2$
Dim assetname$
Dim amt#

Dim rng As Range
Dim aa_row1&
Dim aa_lastrow&

Sheets("Asset Detail").Select
'start in S10
'find last row of print area
lastrow = Range("Print_Area").Rows.Count

With ActiveSheet
Range("S10").Select
For x = 10 To lastrow
currentrow = ActiveCell.Row
assettype = ActiveCell.Value
If assettype = "" Then GoTo next_rec
acct_type1 = Range("AB" & currentrow).Value
acct_type2 = Range("AD" & currentrow).Value
assetname = Range("H" & currentrow).Value
amt = Range("J" & currentrow).Value

Sheets("Asset Allocation").Select
With ActiveSheet
Select Case assettype
Case "Cash"
Set rng = Range("AACash")
------ rng.Find("").Select


Case "Fixed Income"
Case "Large Cap"
Case "Mid Cap"
Case "Small Cap"
Case "Foreign"
Case "Company Stock"
Case "Real Estate"
Case "Alternative Investment"
Case Else
GoTo next_rec
End Select
End With
next_rec:
Next x
End With

End Sub