Hi Syed,

Try prepending:

Cells(iRow, 1).Select

with a dot:

.Cells(iRow, 1).Select

Better still, remove the selectio, e.g.:

With Sheets("Member_DataBase")
iRow = .Cells(.Rows.Count, 2).End(xlUp).row
Cells(iRow, 1).FormulaR1C1 = "=R[-1]C+1"
End With



---
Regards,
Norman



"saziz" wrote in
message ...

Hi All,
I have this scripit in my form to add a new membership no. to the data
base entries. This works fine if I run it from the same sheet where
the data is. If I try to run this code from sheet 2 it gives me an
error.

With Sheets("Member_DataBase")

iRow = .Cells(.Rows.Count, 2).End(xlUp).Row
Cells(iRow, 1).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
End With

The error is at .Cell(iRow.....
it says wrong way of selection or something to that effect.
Appreciate any help please?

Thank you
Syed


--
saziz
------------------------------------------------------------------------
saziz's Profile:
http://www.excelforum.com/member.php...fo&userid=6350
View this thread: http://www.excelforum.com/showthread...hreadid=505899