Dear experts
I need help on vba code
I have run code to add comma after 2 digit but it take too much time to finish b85000 so i want run code depends upon end of last row of A:A col
assign the sheet name in the code also so helpful it can run from any sheet
Sub AddComma()
Dim jesus As Long
jesus = Cells(Rows.Count, "a").End(xlUp).Row
Application.ScreenUpdating = False
Dim cell As Range
For Each cell In Range("b2:b85000")
If cell.Value <> "" Then
cell.Value = Left(cell, Len(cell) - 2) & ":" & Right(cell, 2)
Else
End If
Next cell
End Sub
Bookmarks