Hi Blokeman

I can see what is happening.

When the Private Sub worksheet_SelectionChange(ByVal Target As Range) is called, it turns on the password protection. Thus when you try to update the cell, the sheet is protected.

A simple solution is to comment out the line in the Private Sub worksheet_SelectionChange(ByVal Target As Range), but be aware that this may have an effect somewhere else.

Hope this helps

Regards
Alastair