lociranje vrednosti aktivacijom komande

Code:

Sub Lociranje()
' Pozicionira se na prvo pojavljivanje texta u celiji VrednostZaLociranje
' Pretrazuje se cela radna sveska
'
Dim sh As Worksheet
Dim Rng As Range

    For Each sh In ActiveWorkbook.Worksheets   ' Petlja za sve listove
    Set Rng = sh.Cells.Find(What:=Range("VrednostZaLociranje").Text, _
             After:=ActiveCell, _
             LookIn:=xlValues, _
             LookAt:=xlWhole, _
             SearchOrder:=xlByRows, _
             SearchDirection:=xlNext, _
             MatchCase:=False, _
             SearchFormat:=False)
    If Not Rng Is Nothing Then
     ' Preskace celiju po kojoj se pretrazuje
     If Rng.Worksheet.Name <> Range("VrednostZaLociranje").Worksheet.Name Or _
        Rng.Address <> Range("VrednostZaLociranje").Address Then GoTo Kraj
    End If
    Next sh
Kraj:             ' Aktiviranje pronadjene celije
    Rng.Worksheet.Activate
    Rng.Select
            
End Sub