Macro to replace numbers in certain columns?

[John]

Hello.

I have a macro which replaces certain numbers entered in a spreadsheet
with different numbers. I only want it to do it for column A but at
the moment it does it for the whole spreadsheet. Do you know how I
can fix this?

This is an example of the macro. It changes 100 to 1000, 200 to 2000
etc.

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 10/12/2003 by John
'
' Keyboard Shortcut: Ctrl+k
'
Cells.Replace What:="100", Replacement:="1000", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="200", Replacement:="2000", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="300", Replacement:="3000", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="400", Replacement:="4000", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub


Thanks for any help

John

 

[Vasant Nanavati]

Replace "Cells" with "Columns(1)".