This macro was working fine, but for some reason I am getting the following error: Excel VBA Run-time error '13' Type mismatch every time I run the code now. I didn't change anything in the macro or anything in sheet so don't know why am I getting the error.

The error is in the in red part.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("Status")) Is Nothing Then

If Target.Value = "Status" Then
    Target.Value = "FYI"
ElseIf Target.Value = "FYI" Then
    Target.Value = "Follow Up"
ElseIf Target.Value = "Follow Up" Then
    Target.Value = "Solved"
ElseIf Target.Value = "Solved" Then
    Target.Value = "Status"
End If
End If


If Not Intersect(Target, Range("ColourRange")) Is Nothing Then
If Target.Interior.ColorIndex = xlNone Then
    Target.Interior.ColorIndex = 3
    Target.Value = "High"
ElseIf Target.Interior.ColorIndex = 3 Then
    Target.Interior.ColorIndex = 44
    Target.Value = "Medium"
ElseIf Target.Interior.ColorIndex = 44 Then
    Target.Interior.ColorIndex = 43
    Target.Value = "Low"
ElseIf Target.Interior.ColorIndex = 43 Then
    Target.Interior.ColorIndex = xlNone
    Target.Value = "Priority"
End If
End If


If Not Intersect(Target, Range("Department")) Is Nothing Then
If Target.Interior.ColorIndex = xlNone Then
    Target.Interior.ColorIndex = 1
ElseIf Target.Interior.ColorIndex = 1 Then
    Target.Interior.ColorIndex = xlNone
End If
End If


Cancel = True
End Sub