How can I insert a space before the last character in a range of cells
Sub Addspace()
Dim cell as Range
for each cell in selection
if not cell.hasformula then _
cell.value = left(cell.value,len(cell.value)-1) & " " & Right(Cell.Value,1)
Next
End Sub
--
Regards,
Tom Ogilvy
"Jeff" wrote in message
...
Any help greatly appreciated!
Jeff
MCP 70-215
|