Sub test()
  With ActiveSheet.UsedRange
    .Value = .Value
  End With
End Sub

del common.csv
copy *.csv common.csv

Sub OpenCsvGlobal()
  Dim f
  f = Application.GetOpenFilename("Csv Files (*.csv), *.csv", _
      Title:="Открытие csv-файлов в ""международном"" формате")
  If f <> False Then
    Workbooks.Open f, Format:=xlCSV, local:=False
  End If
End Sub

=--ТЕКСТ(A1;"0-00-00")

If rngData(i, 7).Value - wksh.Cells(3, 3).Value >= 4 Then ' как в УФ для зеленого цвета
  listItem.ForeColor = RGB(0, 255, 0)
End If

 If UCase(wsBaseSheet.Name) = UCase(sSheetName)

Sub test()
 Dim a As New Collection
 Set a = Nothing
 MsgBox a.Count
End Sub

Sub CopySheetCsv(ByVal shName)
  Dim Path
  Path = ActiveWorkbook.Path
  
  On Error Resume Next
  Worksheets(shName).Copy  ' копируем в новую книгу
  If Err.Number <> 0 Then
    Exit Sub
  End If
  On Error GoTo 0
  
  Cells.Copy               ' меняем формулы на значения
  Range("A1").PasteSpecial Paste:=xlPasteValues
  Application.CutCopyMode = False
   
  Columns("A:M").Delete    ' удаляем лишние столбцы
  
  On Error Resume Next
  ActiveWorkbook.SaveAs Path & "\" & ActiveSheet.Name, xlCSV
  ActiveWorkbook.Close False
  On Error GoTo 0

End Sub

Sub test()

  CopySheetCsv "Epson"

End Sub

Sub test()
 With Range("A1")
   .Value = 1
   .NumberFormat = "@"
   MsgBox TypeName(.Value)
 End With
End Sub