问题格式为excel vba中的文本

Question

我正在尝试将单元格数字格式转换为具有条件的文本。不幸的是，VBA闪烁了一个错误：

  

“运行时错误”438：'对象不支持此属性或方法。

我的代码是

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim i As Long
    Dim lcell As Long

    lcell = Range("B90000").End(xlUp).Row

    For i = 8 To lcell
        If Range("L" & i) <> "" And Range("B8") <> "" Then
            Range("M" & i).NumberFormat = "@"
            Range("N" & i).NumberFormat = "@"
        End If
    Next i    
End Sub

请帮我找错。 提前谢谢。