Option Explicit
Sub ImportSemicolonDelimitedCSV()
Dim fd As Office.FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim LineFromFile As Variant
Dim LineItems As Variant
With fd
.Filters.Clear
.Title = "Select a CSV File"
.Filters.Add "CSV", "*.csv", 1
.AllowMultiSelect = False
Dim sFile As String
If .Show = True Then
sFile = .SelectedItems(1)
End If
End With
If sFile <> "" Then
Open sFile For Input As #1
Do Until EOF(1)
Line Input #1, LineFromFile
LineItems = Split(LineFromFile, ";")
Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, UBound(LineItems)).Value = LineItems
Loop
Close #1
End If
End Sub