Sayfaların adlarını yerleştirmesi hk.

Sub SAYFA_BUL()
Set bu = Sheets("Sayfa1")
buson = bu.Cells(Rows.Count, 3).End(3).Row
For s = 2 To buson
    aranan = bu.Cells(s, 3).Text
    For Each shf In ThisWorkbook.Sheets
        isim = shf.Name
        If isim <> "Sayfa1" Then
            Sheets(isim).Columns(3).AutoFit
            Set bul = Sheets(isim).[C:C].Find(aranan, LookIn:=xlValues, _
                        LookAt:=xlPart, SearchOrder:=xlByColumns)
            If Not bul Is Nothing Then: bu.Cells(s, "K") = isim: Exit For
        End If
    Next
Next
End Sub