I now have my spreadsheet working with your help which is greatly appreciated.
Just one question. I did not include your following line of code:

If Target.Column = 4 And Target.Columns. Count = 1 And Target.Rows. Count
= 1 Then

Please explain why the above line is required as it seems to work with and
without it.