h8nor

Option Explicit
' https://docs.microsoft.com/en-us/previous-versions/windows/desktop/ms723609(v=vs.85)

Const SAFT48kHz16BitStereo = 39
' Creates file even if file exists and so destroys or overwrites the existing file
Const SSFMCreateForWrite = 3

Dim oFileStream, oVoice
Dim message, mobilegaming
Dim MessageBox, Title, Default

MessageBox = "Enter your Text" ' Set prompt.
Title = "Text to Speech" ' Set title.

Default = "Привет, комрад! Как твои дела?" ' Codepage source - ANSI: CP1251
message = InputBox(MessageBox, Title, Default, 100, 100)

Set mobilegaming = CreateObject("SAPI.SpVoice")
mobilegaming.Speak message


Set oFileStream = CreateObject("SAPI.SpFileStream") ' Save Steam
oFileStream.Format.Type = SAFT48kHz16BitStereo
oFileStream.Open "C:\Users\User\Desktop\Output.mp3", SSFMCreateForWrite

Set oVoice = CreateObject("SAPI.SpVoice")
Set oVoice.AudioOutputStream = oFileStream
oVoice.Speak message

oFileStream.Close

1. Для git 2.18+ настраивается в .gitattributes (на локальном ПК будет необходимая кодировка)
   *.* working-tree-encoding=cp1251 eol=crlf
   
2. Для git более старых версий только UTF-8 с применением клиентского хука.
   

Option Explicit
'123456789012345678901234567890123456h8nor@ya567890123456789012345678toster56789
Private IndexColors As New Collection, CurrentColor As Integer, BaseSheetIndex As Byte

Sub DuplicatesColoring()
  Dim cell As Range, selected As Range
  
  Set selected = Selection
  If BaseSheetIndex = 0 Then _
    BaseSheetIndex = ActiveSheet.Index: CurrentColor = 3 ' Начальные значения
  selected.Interior.ColorIndex = -4142 ' Убрать заливку
  
  For Each cell In selected
    If Not IsEmpty(cell.Value) Then
      On Error Resume Next ' Включить обработку исключений
        If BaseSheetIndex = ActiveSheet.Index _
        And WorksheetFunction.CountIf(selected, cell.Value2) > 1 Then
          IndexColors.Add CurrentColor, CStr(cell.Value2) ' Заполнить коллекцию
          If Not Err.Number = 457 Then CurrentColor = CurrentColor + 1
        End If
        
        cell.Interior.ColorIndex = IndexColors(CStr(cell.Value2))
      On Error GoTo 0
    End If
  Next cell
  
  Do Until ActiveSheet.Index > ActiveWorkbook.Sheets.Count - 1
    ActiveWorkbook.Sheets(ActiveSheet.Index + 1).Activate
    DuplicatesColoring
    Exit Sub ' Предотвратить бесконечную рекурсию
  Loop
  
  Worksheets(BaseSheetIndex).Activate
End Sub