For Each cell In myrange.SpecialCells(xlCellTypeConstants)
thisrow = cell.Row
dbstr = left(cell,2) ' paste to wb2 col 'a' row thisrow
newstr =mid(cell, 3,6) & "/" & right(cell,2) ' paste to wb2 col 'h' row thisrow
next cell
this is example of what I thought by using loop.
will also be taking other ranges and copying complete to other workbook no cell manipulation required
any help or suggestions
regards Alan
Bookmarks