Sub Дополнения_текст()
If Not Application.Intersect(ActiveCell, Range("G2:G1000")) Is Nothing Then
If ActiveCell.Value = "" Then
Exit Sub
End If
If ActiveCell.Value <> "" Then
ActiveCell.Value = "РЕЗУЛЬТАТ ЗВОНКА И ДОПОЛНЕНИЯ:"
End If
End If
End Sub

Private Sub Workbook_Open() 
 
    'если время с 8.30 до 9.00 то 
    If Time > TimeValue("08:30:00") And Time < TimeValue("09:00:00") Then 
        Application.Quit 'закрываем приложение 
        ThisWorkbook.Close False 'закрываем книгу без сохранения 
    End If 
 

Private Sub Workbook_Open()
Dim z
For z = 1 To Sheets.Count
If Sheets(z).Name = "План занятости" And Sheets(z).Name = "Исходные данные" Then Exit Sub 
z.Columns(7).ColumnWidth = 118 'устанавливаем требуемую ширину столбца G кроме листов "Исходные данные" и "План занятости"
Next
End Sub

Private Sub Workbook_Open()
Dim wsSh As Worksheet
For Each wsSh In Sheets
Application.ScreenUpdating = False
If wsSh.Rows("6:5000", 7).WrapText = False Then
     wsSh.Rows("6:5000", 7).WrapText = True
End If
Next wsSh
Application.ScreenUpdating = True
End Sub