Kijken of cel in een bereik ligt

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Rng = ActiveCell.Address
   If Range(Rng) = "c" Then
        Range(Rng) = "R"
        With Selection.Font
             .Name = "Wingdings 2"
             .Size = 18
             .Strikethrough = False
             .Superscript = False
             .Subscript = False
             .OutlineFont = False
             .Shadow = False
             .Underline = xlUnderlineStyleNone
             .ColorIndex = xlAutomatic
             .TintAndShade = 0
             .ThemeFont = xlThemeFontNone
         End With
         Exit Sub
    End If
   If Range(Rng) = "R" Then Range(Rng) = "c"
   With Selection.Font
        .Name = "Webdings"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim fnt As String
    Dim ltr As String
    Dim siz As Byte
    
    If Not Intersect(Target, Range("A15:F22")) Is Nothing Then
        Select Case Target.Value
            Case "c":   ltr = "R":  fnt = "Wingdings 2":    siz = 18
            Case "R":   ltr = "c":  fnt = "Webdings":       siz = 14
        End Select
        
        Target.Value = ltr
        With Target.Font
             .Name = fnt
             .Size = siz
         End With
        Cancel = True
    End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("A15:F22")) Is Nothing Then
    Target = IIf(Target = "R", "C", "R")
    Target.Font.Name = IIf(Target = "C", "Webdings", "Wingdings")
    Target.Font.Size = 14 - 4 * (Target = "R")
    Cancel = True
  End If
End Sub

Sub M_snb()
  With ThisWorkbook.Styles.Add("R")
    .Font.Name = "webdings"
    .Font.Size = 18
  End With
  
    With ThisWorkbook.Styles.Add("C")
    .Font.Name = "wingdings 2"
    .Font.Size = 14
  End With
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A15:F22")) Is Nothing Then
        Target = IIf(Target = "R", "C", "R")
        Target.Style = Target
        Cancel = True
    End If
End Sub