Hi All,

I have a problem with this code , i'm trying to find a value on a sheet and once i find it i offset my selection to a cell of a figure and copy this figure to another cell.

my problem is , i need to resume the search from the last founded figure ,

how to do that ?

Sub findnext()

Cells.Find(What:="ASK Training Managers", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
        
          
    
ActiveCell.Offset(-5, 2).Select


Selection.Copy
    Range("AC12").Select
    ActiveSheet.Paste
    ActiveCell.Select
    
    
If cell_position(1) <> "" Then
        Range(cell_position(1)).Select
    Else
        MsgBox "No previous cell stored"
    End If


  End Sub

i have recieved this code but it doesn't work 


Dim cell_position(0 To 1) As String

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
cell_position(1) = cell_position(0)
cell_position(0) = Target.Address
end sub

If cell_position(1) <> "" Then
        Range(cell_position(1)).Select
    Else
        MsgBox "No previous cell stored"
    End If


  End Sub