Find and Replace values within a single column

[Rudy]

I am trying to find/create code that will allow me to find and replace any value within a column, that will always be named "Taxable Amount" as the header but may not always be in the same column (i.e. needs to be dynamic because it may in one instance be "C1" and the next be "H1"). I want the code to be able to go down the colomn row by row and replace any value that is less than zero ("<0") with "0".

This would be code that would be placed within my current code that is used to copy information from one place and paste into the new sheet, but I cant seem to get it to work.

Any help would be great.

This is what I have been playing around with to start, but is obviously incorrect because I keep getting an error:

Dim WageCol
Set WageCol = Range(ActiveSheet.Find("Taxable Wages").End(xlDown))

'When WageCol is <0      need help with
'Then .Value = "0"      need help with

 

[Datsmart]

This will replace a numbers less than zero with the number zero just in the column with your Text:

Sub FindReplaceTest()
Dim Rng As Range
Dim c As Range
    ColNum = Cells.Find(What:="Taxable Amount").Column
    LastRow = Cells(Rows.Count, ColNum).End(xlUp).Row
    Set Rng = Range(Cells(1, ColNum), Cells(LastRow, ColNum))
    For Each c In Rng
        If c.Value < 0 Then
           c.Value = 0
        End If
    Next c
End Sub

 

[Rudy]

Datsmart thanks for the help.

I am getting an error on:

ColNum = Cells.Find(What:="Taxable Amount").Column

Any ideas?

 

[Rudy]

Never mind, I had spelled "Taxable Amount" as "Taxable Amt", so I made the change and it works just fine.