I looked at your file. Right click sheet tabview codeinsert thissave as
..xlsM or .xlS and enable macros.
If desired, I can send the .xls file I used.
Type in the task in cell c2 FIRST and
then use your drop down in b2 to select the rank desired.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < Range("b2").Address Then Exit Sub
If Len(Application.Trim(Target.Offset(, 1))) < 1 Then Exit Sub
Target.Offset(, 1).Copy
Cells(Target + 4, "c").Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

or



"mj_bowen" wrote in message
...
Hi,
I am trying to create a €˜to-do job spreadsheet that will
automatically
insert new €˜tasks according to their priority. For example, on the
sheet I
currently have 10 tasks - entered manually. However, the more tasks I
have,
the longer I spend re-assigning rank order numbers.

I would like the sheet to:
€¢ insert a new task e.g., Pick up TV. lets say, into position number
5.
This would result in €œSweep Drive€� moving down to number 6 and all
the other
jobs would subsequently be moved down one cell.

€¢ Allow me to keep adding jobs if necessary. I think I may need an
€˜Update
task button to add several new tasks one after the other?
I have attached a link to a copy of the file i have been using, I think I
am
way off though!

http://www.box.net/shared/vocgklzdnz

I have been trying using the IF function but am a little out of my depth!

Any help would be greatly appreciated!
Regards, Matt