Sub Putitdown()
Worksheets("Cleaned List").Activate
lr = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row
Range("A2").Formula = "=IF(IFERROR(LEFT(RIGHT(A2,LEN(A2)-FIND(" ",A2)),1),"")="&","",IFERROR(LEFT(RIGHT(A2,LEN(A2)-FIND(" ",A2)),1) & ".",""))"
Range("A2").AutoFill Range("A2:A" & lr)
End Sub
Asked
Active
Viewed 24 times
0
Tim Williams
- 137,250
- 8
- 88
- 114
Joel Beale
- 11
- 2
-
1Quotes in strings need to be escaped by doubling them up `"=IF(IFERROR(LEFT(RIGHT(A2,LEN(A2)-FIND("" "",A2)),1),"""")...` etc etc – Tim Williams Sep 29 '21 at 22:16
-
IT WORKED! THANK YOU VERY MUCH – Joel Beale Sep 29 '21 at 22:21