David,

Why do you think it isn't working. All the macro does (and you must have a
reason) is put a space in front of each cell in a selection and then
immediatly take that space away. It will work so fast you won't be able to
see it work.

One way to see if it is working is to put a STOP in the code and then run it

Sub addspace()
Dim cell As Object
For Each cell In Selection
cell.Value = " " & cell.Value
Stop
cell.Value = Right(cell.Value, Len(cell.Value) - 1)
Next
End Sub

Mike

"David Ellis - Indiana State Fair Comm." wrote:

I created the following macro for a workbook:

Sub addspace()
Dim cell As Object
For Each cell In Selection
cell.Value = " " & cell.Value
cell.Value = Right(cell.Value, Len(cell.Value) - 1)
Next
End Sub

It worked perfectly the first time I used it. I then attempted to self
certify the macro and in doing so changed some of my security settings. Now
the exact same macro won't run. I get no error... it just doesn't run. I
think I've reset everything back to the way it was, even deleted my self
certification, but I can't get it to work. Any thoughts?