Dim session As Object
Dim NABdb As Object
Dim vPeople As Object
Dim doc As Object
Dim books As Variant
Dim i As Integer
Set session = CreateObject("Lotus.NotesSession")
Call session.Initialize
books = session.AddressBooks
For i = 1 To UBound(books)
Set NABdb = books(i)
If NABdb.IsOpen = False Then
Call NABdb.Open
End If
Set vPeople = NABdb.GetView("($VIMPeople)")
Set doc = vPeople.GetFirstDocument
Do While Not doc Is Nothing
Print doc.GetItemValue("InternetAddress")(0)
Set doc = vPeople.GetNextDocument(doc)
Loop
Next

Columns(ActiveCell.Column).Copy
Columns(ActiveCell.Column).Insert Shift:=xlToRight

=ДЛСТР(A1) - ДЛСТР(ПОДСТАВИТЬ(A1;"x";""))

Range("D5").FormulaArray = "=MAX(IF((A1:A11)=F1,B1:B11))"

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
ActiveSheet.Shapes("TextBox 1").OLEFormat.Object.Text = Target.Value
ActiveSheet.Shapes("TextBox 2").OLEFormat.Object.Text = Target.Value
'...
ActiveSheet.Shapes("TextBox n").OLEFormat.Object.Text = Target.Value ' или цикл
End If
End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Sheets("Оглавление").Cells(Target.Range.Cells.Row, 3) = Sheets("Оглавление").Cells(Target.Range.Cells.Row, 3) + 1
End Sub

 Function position_search(Диапазон As Range)
 fr = Диапазон .Row
 lr = Диапазон .Row + Диапазон .Rows.Count - 1
 val_ = Cells(fr, Диапазон .Column).Value
 For r = fr + 1 To lr
 If Cells(r, Диапазон .Column).Value <> val_ Then
 Exit For
 End If
 Next r
 position_search = r - fr + 1
 End Function

For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1).Interior.Color = 255 Then
adr = adr & Cells(i, 1).Address & ","
End If
Next
adr = Left(adr, Len(adr) - 1)
Range(adr).Copy
Range("B1").Activate
ActiveSheet.Paste

Range("A1").FormatConditions.Delete
Selection.FormatConditions.Delete