Makro - Søg efter værdi på tværs af flere ark

Noget i stil med dette måske:

Sub sub_find_ord_i_ark()
    Dim sh As Worksheet
    Dim cl As Range
    Dim ord As String
    Dim res As String
    ord = InputBox("Angiv søgeord", "Søg efter ark")
    If ord = "" Then Exit Sub
    For Each sh In ThisWorkbook.Worksheets
        For Each cl In sh.UsedRange
            If CStr(cl.Value) Like "*" & ord & "*" Then
                res = res & sh.Name & vbNewLine
                Exit For
            End If
        Next cl
    Next sh
    If res <> "" Then
        MsgBox """" & ord & """" & " blev fundet i følgende ark:" & vbNewLine & vbNewLine & _
              res, vbOKOnly + vbInformation, "Søgeresultat"
    Else
        MsgBox """" & ord & """" & " blev IKKE fundet i noget ark", vbOKOnly + vbExclamation, "Tomt søgeresultat"
    End If
End Sub

Hej,

Det fungere meget godt, tak!
Vil man kunne reducere søgningen, så den kun søger i kolonne A i hvert ark?

Udskift

    For Each cl In sh.UsedRange

med

    For Each cl In sh.Range("A:A").Cells

Eller faktisk vil det være bedre med denne her, så den ikke løber igennem en masse tomme celler i kolonne A:

For Each cl In sh.Range("A1").Resize(sh.UsedRange.Rows.Count).Cells

Det hjalp virkelig meget! Nu tager den også kun nogle sekunder at løbe igennem. Kæmpe tak for hjælpen!