I have a worksheet with 4 columns.
Column A Row 1 is for inputing a date, formatted mm/dd/yy
Column B Row 1 is empty, formatted accounting, 2 decimals
and no currency
Column C Row 1 has a formula, formatted accounting, 2
decimals and no currency =IF(INDIRECT(ADDRESS(ROW()-9,5))
0,(Lenders_Half_Daily_Dep),Total_Monthly_Pymt)

Column D Row 1 has a formula, =IF(INDIRECT(ADDRESS(ROW
(),3))="","",SUM(INDIRECT(ADDRESS(ROW()-1,4))+INDIRECT
(ADDRESS(ROW(),2)))-INDIRECT(ADDRESS(ROW(),3)))

This is what I want to do in a sub routine from active
cell:
Insert a row
Place a formula on inserted row B2 (=C2) and protect cell
B2
Unlock cell C2
Copy formula from D1

Could someone help
Unlock C

the sheet must be unprotected:

Range("C2").Locked = False

--
Regards,
Tom Ogilvy


tokirk wrote in message
...
I have a worksheet with 4 columns.
Column A Row 1 is for inputing a date, formatted mm/dd/yy
Column B Row 1 is empty, formatted accounting, 2 decimals
and no currency
Column C Row 1 has a formula, formatted accounting, 2
decimals and no currency =IF(INDIRECT(ADDRESS(ROW()-9,5))
0,(Lenders_Half_Daily_Dep),Total_Monthly_Pymt)

Column D Row 1 has a formula, =IF(INDIRECT(ADDRESS(ROW
(),3))="","",SUM(INDIRECT(ADDRESS(ROW()-1,4))+INDIRECT
(ADDRESS(ROW(),2)))-INDIRECT(ADDRESS(ROW(),3)))

This is what I want to do in a sub routine from active
cell:
Insert a row
Place a formula on inserted row B2 (=C2) and protect cell
B2
Unlock cell C2
Copy formula from D1

Could someone help
Unlock C