VBA Excel - Wochentag mit Bedingung

[Excelmania]

Guten Morgen.

ich möchte gerne über Schleife, wenn die Bedingung erfüllt ist und sich aus einem Datum der Wochentag Sonntag (1) ergibt, dass in eine definierte Spalte zu den Daten ein F geschrieben wird.

Es scheitert jedoch bereits ohne Schleife, wobei ich den Fehler nicht erkennen kann:

Sub wochentag()

If Weekday(ActiveSheet.Range("Q1").Value, vbSunday) = 1 Then
ActiveSheet.Range("R1").Value = "F"
End If

End Sub

In Q1 steht der 17.01.2021

Kann mir jemand sagen, ob bei Weekday eine bestimmte Syntax einzuhalten ist?

 

[tollertyp]

Was konkret heißt denn "scheitert"?

 

[till69]

wobei ich den Fehler nicht erkennen kann:

Da ist ja auch keiner

 

[True Skool]

Bei mir funktioniert es. Insofern liegt es nicht an dem VBA Code.