Using the Find&Replace

[hartless43]

Sub FindCellThatContains()

    Columns("AO:AO").Select
    Range("AO28:AO944").Activate
    Selection.Find(What:="241", After:=ActiveCell, LookIn:=xlFormulas2, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
End Sub

I don’t know if anyone has ever delved into something like this. The above is a VBA I created using the Marco Recorder to Find a cell with the value of 241 in Column O and it works as recorded, but without using the Find & Replace feature each time I need a way to pick up the value of cell “N1” which in this case is 241. The value of “N1” changes quite often. I tried changing the “241” to “&N1&” and that doesn’t work. The debugger doesn’t reject it. I need to change the FindWhat:=” “value to what is in cell “N1”. I am working on this experimental thing, so no big deal if no one knows.



Thanks

 

[hartless43]

I tried to mark as solved, but don't know for sure.

 

[Peter_SSs]

I tried to mark as solved, but don't know for sure.

You have now re-marked correctly this time.
However, just to be clear, the mark is not to show that the thread is solved, it is to mark the actual post that contains the solution. This is different to what some other forums do.