Когда диапазон в союзе, если предложение не работает

Question

Я пытаюсь просмотреть несколько диапазонов и проверить каждую ячейку предложением if, чтобы заменить буквы словами, например. Если в ячейках указано «AR», замените его на «Ночь». Это прекрасно работает, если я скажу Range («D10: D40»), но не если я скажу Union (Range («D10: D40»)), Range («L10: L40 "), диапазон (" T10: T40 ") ... Затем появляется ошибка" Несоответствие типов "2042 ...

 For Each cell In Range("D10:D40")
    If cell.Value = "NR" Then
        cell.Value = "Nat"
    End If
Next cell

 For Each cell In Union(Range("D10:D40"), Range("L10:L40"), Range("T10:T40"), Range("D49:D79"), Range("L49:L79"), Range("T49:T79"), Range("D88:D117"), Range("L88:L117"), Range("T88:T117"), Range("D127:D153"), Range("L127:L157"), Range("T127:T157"))
    If cell.Value = "AR" Then
        cell.Value = "Aften"
    End If
Next cell