Run-time error '438' ved henvisning til celle

Hejsa, jeg skal have ændret noget formattering baseret på værdien i en celle.

Koden forneden giver mig en fejl, jeg ikke har set før:

"Run-time error '438' 'Object Doesnt support such property or Method". Jeg har googlet fejlen men kan ikke finde noget, der forklarer, hvor jeg får denne fejl.

Sub FormatAdjustment()

Set ws = Sheets("shet1")
   
If ws.Range("D9").Value = 0 Then
    ws.Range("D13").Selection.NumberFormat = "0%;;;"
Else
    ws.Range("D13").Selection.NumberFormat = "0%;0%;0%;"
End If

End Sub

Hvad gør jeg galt? På forhånd tak :)