Find/Replace VBA for a specific column

I want to run several find and replace commands. I'm not sure how to limit the scope of the command to a specific column.

I tried this macro to replace all spaces in column A with the letter N but the command runs without making any changes.

Sub reppp()
Columns("A").Replace What:=" ", Replacement:="N", SearchOrder:=xlByColumns
End Sub

Thanks so much!

Hi boolean,

Try repacing this line of code...

SearchOrder:=xlByColumns

...with this:

SearchOrder:=xlByRows

Also, don't forget to wrap all code in tags (as I've done).

HTH

Robert

Hello boolean,

If you want to replace all spaces within the cell, you need to set the parameters this way...

Sub reppp()
  Columns("A").Replace What:=" ", Replacement:="N", LookAt:=xlPart
End Sub