无法识别“类型不匹配”错误的来源

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")。