Полезные макросы на каждый день

Sub RemoveSpaces()
    Dim myRange As Range
    Dim myCell As Range
    Select Case MsgBox("Сохранить книгу перед заменой значений? ", vbYesNoCancel)
        Case Is = vbYes
        ThisWorkbook.Save
        Case Is = vbCancel
        Exit Sub
    End Select
    Set myRange = Selection
    For Each myCell In myRange
        If Not IsEmpty(myCell) Then
            myCell = Trim(myCell)
        End If
    Next myCell
End Sub

Sub removeTime()
    Dim Rng As Range
    For Each Rng In Selection
        If IsDate(Rng) = True Then
            Rng.Value = VBA.Int(Rng.Value)
        End If
    Next
    Selection.NumberFormat = "dd.mm.yyyy"
End Sub

Sub CloseAllWorkbooks()
    Dim wbs As Workbook
    For Each wbs In Workbooks
        wbs.Close SaveChanges:=True
    Next wb
End Sub

Sub UnhideRowsColumns()
    Columns.EntireColumn.Hidden = False
    Rows.EntireRow.Hidden = False
End Sub

Sub OpenCalculator()
    Application.ActivateMicrosoftApp Index:=0
End Sub

Sub HighlightDuplicateValues()
    Dim myRange As Range
    Dim myCell As Range
    Set myRange = Selection
    For Each myCell In myRange
        If WorksheetFunction.CountIf(myRange, myCell.Value) > 1 Then
            myCell.Interior.ColorIndex = 36
        End If
    Next myCell
End Sub