Formatering af celle + VBA kodning

Hej,

Jeg har lavet nedenstående koder som driller.

I kolonne O vil jeg gerne have en VBA kode til at gøre følgende, afhængig af hvad der står i kolonne O:
- Hvis der er en formel i cellen skal baggrundfarven være gul
- Hvis cellen er tom skal baggrundsfarven være neutral
- Hvis man taster en værdi i cellen, så skal baggrundsfarven være orange

Håber nogen kan hjælpe.

Jeg har som sagt lavet nedenstående kode som driller:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.ScreenUpdating = False

For Each cell In Range("O3:O10000")
       
        If cell.HasFormula Then
            With cell.Interior
                .ColorIndex = 6
                '.Pattern = xlSolid
            End With
        ElseIf cell.Value = "" Then
            cell.Interior.ColorIndex = xlNone
        Else
            cell.Interior.ColorIndex = 45
       
        End If
    Next cell


End Sub