I have the code below but it gives me an error and tells me to define the variable 'cell' in the For Each cell In Selection part. Why is it doing that?

LRow = Cells(Rows.Count, "E").End(xlUp).Row
Range("A2:A" & LRow).Select
' START CHANGE NUMBER TO TEXT
    For Each cell In Selection
        cell.NumberFormat = "@"
        cell.Value = Trim(cell.Value)
        
'        If cell.Value <> "" Then
'            TempString = Trim(UCase(cell.Value))
'            cell.Value = TempString
'        End If
    Next cell