Open File And Manipulate

Hi, Tony,

have two or three macros or just one?

Please test (you might need to change the SaveAs part which will cause run-time errors withthe given anme and substitute ( and ) in the name respectively):

Sub EF1050126()
Dim FileToOpen As Variant
Dim wb As Workbook

FileToOpen = Application.GetOpenFilename("Text Files (*.csv), *.csv")

If FileToOpen <> False Then
 Set wb = Workbooks.Open(FileToOpen)
End If

If Not wb Is Nothing Then
  Columns("A:A").Replace What:="<*>", Replacement:="", LookAt:=xlPart, _
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
      ReplaceFormat:=False
  Range("A1", Cells(1, Columns.Count).End(xlToLeft)).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
  wb.SaveAs ThisWorkbook.Path & "\" & Format(Now, "yyyymmdd_hhnnss") & ".xlsx", FileFormat:=51
  wb.Close False
End If

Set wb = Nothing

End Sub

Since a csv will only have one worksheet as default I didnīt care for placing a sheet name in this code.

Ciao,
Holger