Range("A1:A10").Value = "одинаковый текст"

a1 = Range("A1")

Set a11 = Range("A1")

Sub IsNotIs()
    Dim rc As Range, rc2 As Range
    Set rc = Range("A1") 'везде один и тот же диапазон
    Set rc2 = Range("A1")
    Debug.Print ObjPtr(rc)
    Debug.Print ObjPtr(Range("A1"))
    Debug.Print ObjPtr(rc2)
    Debug.Print rc Is Range("A1") 'не равны
    Debug.Print rc Is rc2 'не равны
End Sub

Sub ValueOrNotValue()
    Range("A1:B2").Formula = "1"
    Range("A1:A2") = Range("A1:A2")
End Sub

Sub IsNotIs2()
    Debug.Print ObjPtr(ActiveCell.Worksheet)
    Debug.Print ObjPtr(ActiveSheet)
    Debug.Print ActiveCell.Worksheet Is ActiveSheet
End Sub

Sub IsNotIs()
    Dim rc As Range, rc2 As Range
    Set rc = Range("A1")
    Set rc2 = Range("A1")
    Debug.Print ObjPtr(rc)
    Debug.Print ObjPtr(Range("A1"))
    Debug.Print ObjPtr(rc2)
    Debug.Print rc Is Range("A1")
End Sub

Sub IsAddr()
    Dim rc As Range
    Set rc = Range("A1")
    Debug.Print ObjPtr(rc)
    Debug.Print ObjPtr(Range("A1"))
    Debug.Print rc.Address(external:=True) = Range("A1").Address(external:=True)
End Sub

Intersect(WorkRange, Union(Target.EntireColumn, Target.EntireRow))

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim WorkRange As Range
    'отключаем отслеживание событий
    Application.EnableEvents = False
    Set WorkRange = Range("A1:g10")
    Intersect(WorkRange, Union(Target.EntireColumn, Target.EntireRow)).Select
    'возвращаем отслеживание событий
    'обязательно, иначе в следующий раз выделение не сработает
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim WorkRange As Range, rr As Range
    Set WorkRange = Range("A1:g10")
    Set rr = Intersect(WorkRange, Union(Target.Cells(1, 1).EntireColumn, Target.Cells(1, 1).EntireRow))
    If Not rr Is Nothing Then rr.Select
End Sub

=СМЕЩ(D3;5-ОСТАТ(СТРОКА(C7);7);ОСТАТ(СТОЛБЕЦ(C1);2)-1)=0

=СМЕЩ(D3;4-ОСТАТ(СТРОКА(C6);6);ОСТАТ(СТОЛБЕЦ(C1);2)-1)=0

Set objOutlookApp = Nothing: Set objMail = Nothing