无法在vba中选择范围内的子集

Sub SelectRange()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ws.Range("A1:B10").Select
End Sub

Sub SelectRange()
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets("Sheet1")
    If ws Is Nothing Then
        MsgBox "工作表 'Sheet1' 不存在！"
        Exit Sub
    End If
    On Error GoTo 0
    ws.Range("A1:B10").Select
End Sub

Sub SelectCellsWithText()
    Dim ws As Worksheet
    Dim rng As Range
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("A1:A100").Find(What:="特定文本", LookIn:=xlValues, LookAt:=xlWhole)
    If Not rng Is Nothing Then
        rng.Select
    Else
        MsgBox "未找到包含 '特定文本' 的单元格。"
    End If
End Sub