Написание кода в VBA Excel

Option Explicit ' не знаю надо писать эту строку или нет '
 
Public Sub Fix()
 Dim comm As Comment ' иногда эту строку советуют написать так: Dim iComment As Comment, A_Size As Boolean '
 
    For Each comm In ActiveSheet.Comments
        With comm 
' иногда эти 2 строки советуют написать так: For Each iComment In ActiveSheet.Comments / With iComment.Parent.Cells '
            .Shape.Top = .Parent.Top 
            .Shape.Left = .Parent.Offset(, 1).Left    
' иногда эти 2 строки советуют написать так: iComment.Shape.Top = .Top - 10 / iComment.Shape.Left = .Left + .Width + 10 '     
        End With
    Next comm
    MsgBox "Положения примечаний исправлены" ' иногда эту строку советуют написать так: MsgBox "Положения примечаний исправлены", vbInformation, "" '
End Sub

Sub Fix()
    Dim oComm As Comment
 
    For Each oComm In ActiveSheet.Comments
        With oComm
            .Shape.Top = .Parent.Cells.Top - 10
            .Shape.Left = .Parent.Cells.Left + .Parent.Cells.Width + 10
        End With
    Next oComm
    MsgBox "Положения примечаний исправлены"
End Sub

Option Explicit
 
 
Public Sub FixComments()
Dim tStart As Single
tStart = Timer
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error GoTo blin
    Dim oComm As Comment
    For Each oComm In ActiveSheet.Comments
        With oComm
            .Shape.Top = .Parent.Cells.Top - 10
            .Shape.Left = .Parent.Cells.Left + .Parent.Cells.Width + 10
            .Shape.TextFrame.AutoSize = True
        End With
    Next oComm
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    MsgBox "Готово"
    Exit Sub
blin:
MsgBox "Ошибка" & Err
Application.StatusBar = "Выполнено за " & Round(Timer - tStart, 2) & " сек"
End Sub

Option Explicit
 
 
Public Sub FixComments()
Dim tStart As Single
tStart = Timer
Application.ScreenUpdating = False
Application.EnableEvents = False
    Dim oComm As Comment
    For Each oComm In ActiveSheet.Comments
        With oComm
            .Shape.Top = .Parent.Cells.Top - 10
            .Shape.Left = .Parent.Cells.Left + .Parent.Cells.Width + 10
            .Shape.TextFrame.AutoSize = True
        End With
    Next oComm
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    MsgBox Application.StatusBar = "Выполнено за " & Round(Timer - tStart, 2) & " сек"
End Sub

MsgBox "Выполнено за " & Round(Timer - tStart, 2) & " сек"

Application.StatusBar = "Выполнено за " & Round(Timer - tStart, 2) & " сек"

With oComm.Shape
    .Top = .Parent.Cells.Top - 10
    .Left = .Parent.Cells.Left + .Parent.Cells.Width + 10
    .TextFrame.AutoSize = True
End With

set oCell = oComm.Parent
With oComm.Shape
    .Top = oCell.Top - 10
    .Left = oCell.Left + oCell.Width + 10
    oComm.TextFrame.AutoSize = True
End With