Не удается определить источник ошибки «Несоответствие типов»

Question

Следующий макрос выдает ошибку несоответствия типов при запуске, и я не могу видеть, где он есть.Буду признателен за любые советы по этому вопросу:

Sub Add_W()
Dim cel As Range
Dim selectedRange As Range
Dim WCount As Integer

Set selectedRange = ("C4:C20")

Set WCount = 0

For Each cel In selectedRange.Cells
    Wname = cel.Text

    With ThisWorkbook
        .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = Wname + " Table"
        .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = Wname + " Plots"
    End With

    Sheets(Wname + " Table").Select

    Sheets("Report").Select
    If IsEmpty(Range("B5")) Then
        Rows(5).Insert shift:=xlShiftDown
    End If
    Range("B5") = Wname
    WCount = WCount + 1

    Sheets("Input").Select
    Range("U" & WCount + 1) = Wname

    Sheets(Wname + " Plots").Select
Next cel


End Sub

Answer 1

Использование Set selectedRange = ActiveSheet.Range("C4:C20").