Найти на трех листах цифру 5

Sub FindFive()
    Dim i As Long, r As Range
    For i = 1 To ThisWorkbook.Sheets.Count
         For Each r In ThisWorkbook.Sheets(i).UsedRange
             If r Like "5" Then
                 MsgBox "Sheets(""" & ThisWorkbook.Sheets(i).Name & _
                        """).Cells(" & r.Row & ", " & _
                           r.Column & ") = " & r.Value
                 Exit Sub 
             End If
         Next r
    Next i
End Sub

Sub Макрос1()
Dim ws, c
  For Each ws In Worksheets(Array("Лист1", "Лист2", "Лист3"))
    Set c = ws.Cells.Find(What:="5", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
      xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    If Not c Is Nothing Then
      ws.Activate
      c.Select
      MsgBox "5-ка найдена", vbInformation
      Exit Sub
    End If
  Next
  MsgBox "5-ка не найдена", vbCritical
End Sub