ColumnWidth = Replace(Sheet1.Cells(1, Field).Width, ",", ".")

ColumnWidth = Application.WorksheetFunction.RoundUp(Sheet1.Cells(1, Field).Width, 0)

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Тр.договор" Then
  Call SetFooterOnLastPage
  Cancel = True
End If
End Sub

Sub SetFooterOnLastPage()
Dim pgCount&
On Error Resume Next
Application.EnableEvents = False
With ActiveSheet
  pgCount = .PageSetup.Pages.Count
  If pgCount > 1 Then
  With .PageSetup
    .LeftFooter = "Наниматель ______________"
    .CenterFooter = "&P"
    .RightFooter = "Работник_________________"
  End With
    .PrintOut From:=1, To:=pgCount - 1
  End If
  With .PageSetup
    .LeftFooter = ""
    .CenterFooter = "&P"  'номер страницы на последнем листе по середине
    .RightFooter = ""
  End With
  .PrintOut From:=pgCount, To:=pgCount
End With
Application.EnableEvents = True
End Sub

Sub AddPicToCell()
Dim iShape As Shape
On Error Resume Next
Application.ScreenUpdating = False
For Each iShape In ActiveSheet.Shapes
  If iShape.Name <> "btMacro" Then
    iShape.Select
    iShape.PlacePictureInCell
  End If
Next
Application.ScreenUpdating = True
End Sub