無法識別“類型不匹配”錯誤的來源

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