Using replace method

Hi Jens
I am sorry to be a pain, but I have another question. I want to replace any commas found in all cells in Column A with a space. There are spaces in other columns in my spreadsheet, but I don't want them affected. I am running this code, but despite selecting column A only (I am stepping thru and know it is only selecting A), it still changes any comma anywhere in the sheet. If I do the same Search and replace manually (from CTRL & A dialog box), that does precisely what I want. Can you see what I might be doing wrong? The other two replaces I am doing are fine as the text to be replaced only appears in column A anyway.


Kind Regards

Diane

iNoOfRows = Cells(Rows.Count, 1).End(xlUp).row - 1


Dim sFindTextComma As String
Dim sfindTextStop As String
Dim sFindTextUHL As String

Dim sReplaceTextComma As String
Dim sReplaceTextHD As String
Dim sReplaceTextSpc As String

Dim sEndrow As String


sFindTextComma = ","
sfindTextStop = "."
sFindTextUHL = "(UHL)"

sReplaceTextComma = ""
sReplaceTextHD = "Hotdesk"
sReplaceTextSpc = ""

sEndrow = "a" & iNoOfRows
Range("a2", sEndrow).Select

Cells.Replace what:=sFindTextUHL, replacement:=sReplaceTextSpc, _
lookat:=xlPart, searchorder:=xlByRows, MatchCase:=False, _
searchformat:=False, ReplaceFormat:=False


Cells.Replace what:=sfindTextStop, replacement:=sReplaceTextHD, _
lookat:=xlPart, searchorder:=xlByRows, MatchCase:=False, _
searchformat:=False, ReplaceFormat:=False

Cells.Replace what:=sFindTextComma, replacement:=sReplaceTextComma, _
lookat:=xlPart, searchorder:=xlByRows, MatchCase:=False, _
searchformat:=False, ReplaceFormat:=False

End Sub