运行时错误'438'根据IndentLevel设置行格式

Question

我正在创建带有嵌套需求行的需求文档，并希望根据B列中文本的缩进级别来格式化文本。

这是我第一次尝试使用宏，我尝试不定义工作表，删除所有Dims，尝试仅运行“选择案例”部分，但收到各种其他错误。

Private Sub CommandButton1_Click()

Dim ws As Worksheet
Dim i As Long
Dim lastrow As Long
Set ws = Sheet1("Sheet1")
lastrow = ws.Cells(Rows.Count, "b").End(xlUp).Row
For i = 1 To lastrow

    Select Case Range("B").IndentLevel
    Case 0
        ws.Range("B").Font.Bold = True
    Case 1
        ws.Range("B").Font.ColorIndex = 5
        ws.Range("B").Font.Bold = False

    End Select

Next
End Sub

预期结果是没有意图创建加粗字体，而意图是1的彩色字体不是粗体。