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