Ok, next question from this clueless idiot:

In the workbook attached (test copy), if I insert a new line into the Current Allocations worksheet, I get a popup with Runtime Error '13' Type Mismatch. If I click debug, it shows the below code, with the piece in bold highlighted yellow. I occasionally get the message when performing other actions within the worksheet as well.

Private Sub Worksheet_Change(ByVal Target As Range)
 
 If UCase(Target) = UCase("Y") Then Target = "Yes"
 If UCase(Target) = UCase("N") Then Target = "No"
 If UCase(Target) = UCase("1") Then Target = "Harbour 1"
 If UCase(Target) = UCase("2") Then Target = "Harbour 2"
 If UCase(Target) = UCase("3") Then Target = "Miller 3"
 If UCase(Target) = UCase("4") Then Target = "Harbour 4"

End Sub
What is causing the issue here, and how do I fix it? Thanks in advance.

Coaching Database (Copy).xlsm