Cells(1, 1).Item(6).Select

Range("F4")(2,3)

Range("F4").Item(2,3)

Range("F10").Range("B4").Select

Option Explicit
Dim bNotFirst As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
     If Not bNotFirst Then
         Application.EnableEvents = False
         Cells.Clear
         Application.EnableEvents = True
         bNotFirst = True
     End If

     If Target.Count > 1 Then Exit Sub

     Static n As Integer

     n = n + 1
     Application.Wait Now + TimeSerial(0, 0, 1)
     Application.StatusBar = "Событие инициировано " & n & "-ый раз"
     'If n = 100 Then End

     On Error GoTo errHandle
     Randomize
     Dim r As Integer, c As Integer
     r = CInt(Rnd * 10 - 5)
     c = CInt(Rnd * 10 - 5)

     Dim col As Integer: col = 256 - 3 * n
     If col < 0 Then End
     Target.Interior.Color = RGB(col, col, col)
      
     With Target.Item(r, c)
         .Select
         .Value = n & " (" & r & ", " & c & ")"
     End With

errHandle:
     MsgBox "Попытка прыгнуть из ячейки " & Target.Address(0, 0) & _
            " в ячейку (" & r & ", " & c & ")"
     End
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)                  
     If Target.Cells.Count > 1 Then Exit Sub                    
         If Not Intersect(Target, Range("A1:A100")) Is Nothing Then        
             With Target(1, 5)                    
                 .Value = Now                    
                 .EntireColumn.AutoFit  
             End With
         End If
      End Sub

with a
    .metod1
    .metod2
    .metod3
    b=.svoystvo1
end with

    a.metod1
    a.metod2
    a.metod3
    b=a.svoystvo1

Range("F10").Range("D4").Select
Range("F10").Cells(-3, -2).Select

Selection.Range("D4").Select
Selection.Cells(-3, -2).Select

Option Explicit

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub t()
     Cells.Interior.Color = xlNone
      
     Dim r As Range
     Set r = Range("A1:D10")
'    Set r = Range("A1:D10,F12:G20")
      
     r.Interior.Color = vbRed
      
     Dim i As Integer
      
     For i = 1 To 70
         r.Item(i).Select ' или r(i).Select
         Sleep 100
     Next i
End Sub