我正在尝试为选定的单元格设置值和背景。
设置值工作，设置颜色不工作。

Function InRange(Range1 As Range, Range2 As Range) As Boolean
    Dim InterSectRange As Range
    Set InterSectRange = Application.Intersect(Range1, Range2)
    InRange = Not InterSectRange Is Nothing
    Set InterSectRange = Nothing
End Function

Sub test()
    If InRange(ActiveCell, Range("A1:AA40")) Then
        Set selectedRange = Application.Selection        
        selectedRange.Value = "That Works!"
        selectedRange.Interior.ColorIndex = 1
    End If    
End Sub