Public Sub GotoFixedCell(vValue As Variant, sSheetName As String)
  
  Dim objWSheet As Worksheet
  Dim cActive As Range
  Dim cStart As Range
  Dim cForFind As Range
  Dim i As Integer

  On Error GoTo ErrorÍandler

    Set objWSheet = ActiveWorkbook.Worksheets.Item(sSheetName)
    Set cForFind = objWSheet.Cells 
          
    
    Set cActive = cForFind.Find( _
            What:=vValue, _
            After:=ActiveCell, _
            LookIn:=xlValues, _
            LookAt:=xlPart, _
            SearchOrder:=xlByRows, _
            SearchDirection:=xlNext, _
            MatchCase:=False)
        
    
    Set cStart = cActive
    
    While Not cActive Is Nothing
            
     
            Set cActive = cForFind.FindNext(cActive)
            If cActive.Address = cStart.Address Then
               cActive.Activate
               Exit Sub
            End If
           
            
    Wend
        
    
     
  Exit Sub

ErrorHandler:
    MsgBox Err.Descration, vbExclamation, "Error #" & Err.Number
    
End Sub