Something like this might be do what you want:

Worksheets("Sheet1").Activate

If Cells(5, 1).Value = " " Then
Cells(5, 1).Select
Else
Cells(5, 1).End(xlDown).Offset(1, 0).Select
End If


RBS


"JaiD " wrote in message
...
Hi,

Hopefully you can suggest how I can adabt my VBA Excel Sheet,

I have created a userform to input my work on and after i have entered
the details on the form i need it to enter it into my excel spreedsheet
at the next available blank cell, problem is as i have formulas in the
right hand side of the row it picks them up and counts the cell as not
being blank and trys to find the next one i just want it to ignore the
right hand row.

Here's what I'm using:

Worksheets("Sheet1").Activate
Range("A5").Select
If Range("A5").Value = " " Then
Range("A5").Activate
Else
Range("A5").CurrentRegion.Select
ActiveCell.Offset(Selection.Rows.Count, 0).Activate
End If

Any suggestion would be great as pulling my hair out.


---
Message posted from http://www.ExcelForum.com/