Macro: Assigning an ID number to each row in Excel 2010

Hi,

I have a worksheet with multiple tasks that need to be updated on a monthly basis.

Im trying to find a formula or macro that assigns a number in column A to each row in that spreadsheet in the format of 2014-01, 2014-02, 2014-03...

Also, that number needs to be specific to that row even when being sorted.

Thanks for your help!

Thats what I have been doing, however I want to have that ID number assigned to that row so it doesnt change even after it has been sorted.
Also, when another line is added i want it to automatically update the next line in the sequence.

I was trying to work with this macro, but I cant seem to figure out how to set it to the format i want.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then 'This is the column that causes the ID to be created
'This uses the target offset so it assumes in two spots below that the column to update is "A" and
'that the column is one position to the left of the target column above
If Target.Offset(0, -1).Value = "" Then
Target.Offset(0, -1).Value = Application.WorksheetFunction.Max(Columns("A")) + 1
End If
End If

End Sub

Function Max_Each_Column(Data_Range As Range) As Integer
Dim TempArray() As Double, i As Long
If Data_Range Is Nothing Then Exit Function
With Data_Range
ReDim TempArray(1 To .Columns.Count)
For i = 1 To .Columns.Count
TempArray(i) = Application.Max(.Columns(i))
Next
End With
Max_Each_Column = TempArray
End Function


Thanks,

Ali

That will still change once I sort.

I want to keep the each of the IDs (2014-01, 2014-02, 2014-03) specific to each of the respective rows.
The macro above gives me what I want, but im unsure how to set it to this format: 2014-01