I believe this will work.

If Sheet1.Range("A90") = "" Then
Sheets("Sheet1").Unprotect
Rows(90).Hidden = True
Sheets("Sheet1").Protect
End If






"bryan" wrote in message
...
I'm a newbe with Excel vb. I've done a lot of vb with word but, have a
project with excel.
I have a spreadsheet which gets populated upon open like so:
Private Sub Workbook_Open()

Set objIRConn = CreateObject("irdesktopcontrol.irdesktopcontrolx")
objIRConn.Active = True

'Compnay
If Sheet1.Cells(4, 7) = "" Then
strCo = objIRConn.Filename
Sheet1.Cells(4, 7) = strCo
End If

What I want to do is hide row a90 if this is blank.
The Sheet is protected.

Thanks,
Bryan