Error When Trying To Enter Value In A Cell

I must have added a line of code like this in a VBA module a thousand times before and I have never got an error. The main code is run from the Worksheet Change event, which is ...

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Enter_Container_Category
End Sub

Code:
Sub Enter_Container_Category()
With ActiveCell
Cur_Row = .Row
Cur_Col = .Column
End With

[Code] ..........

The error message I am getting is...

Run-time error '-2147417848 (80010108)':

Method 'Value' of object 'Range' failed.