Sub zamianaTEKSTnaDaty()

Dim i As Long

Dim j As Long

For j = 1 To Selection.Areas.Count

For i = 1 To Selection.Areas(j).Columns.Count

  Selection.Areas(j).Columns(i).TextToColumns Destination:=Selection.Areas(j).Columns(i).Cells(1), DataType:=xlDelimited, _

        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _

        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _

        :=Array(1, 4), TrailingMinusNumbers:=True

Next i

Next j

MsgBox "gotowe"

End Sub