こんなのでいけるかも。。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    Select Case Target.Address
        Case "$C$3"
            Target.Value = Mid("○△×", InStr(" ○△×", Target.Value), 1)
            Cancel = True
        Case "$D$5"
            Target.Value = Mid("☆□◎", InStr(" ☆□◎", Target.Value), 1)
            Cancel = True
    End Select
End Sub


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

VBA初心者の竹庵と言います。
下記のようなVBAで仕事に使用しています。
任意のセルでダブルクリックをすると〇が表示され、もう一度ダブルクリックすると△、もう一度ダブルクリックすると×、もう一度ダブルクリックすると空白が表示されるというものです。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target = "" Then
        Target = "〇"
    
    ElseIf Target = "〇" Then
        Target = "△"
    
    ElseIf Target = "△" Then
        Target = "×"
    
    ElseIf Target = "×" Then
        Target = ""
    
    End If
    Cancel = True
End Sub

この内容だと任意のセルどこでも実行できてしまいます。

C3セルのみで実行したいのですが、どのようにしていいものかわかりません。
それと同時にD5セルでは、ダブルクリックをすると☆、もう一度ダブルクリックすると□、もさらにダブルクリックすると、◎が表示されるようにしたいのです。
どなたか教えていただけませんか。よろしくお願いします。