Code:Sub M_snb() Sheet1.UsedRange.Offset(1).Copy With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .GetFromClipboard sn = Split(Replace(Replace(.gettext, vbTab, """;"""), vbCr, """" & vbCr), vbCrLf) For j = 0 To UBound(sn) sn(j) = Replace(sn(j), """", "", , 1) Next End With Sheet2.Cells(1).Resize(UBound(sn) + 1) = Application.Transpose(sn) End Sub
Bookmarks