vba cells.find problem

Wrap your code with Code tags, it's much easier to read. See the link at the bottom of my post.

Option Explicit

Sub searchAllSheets()
    Dim wbSource As Workbook
    Dim ws     As Worksheet
    Dim uRng   As Range
    Dim rCl    As Range
    Dim sAddress As String
    'change this to your workbook
    Set wbSource = Workbooks("Data")
    'check  each worksheet
    For Each ws In wbSource.Worksheets
        'limit search to UsedRange
        Set uRng = ws.UsedRange
        With uRng
            Set rCl = .Find("Node Info: 443", xlValues)
            If Not rCl Is Nothing Then
                sAddress = rCl.Address
                Do
                    'do something with cell, Copy or whatever
                    Set rCl = .FindNext(rCl)
                Loop While Not rCl Is Nothing And rCl.Address <> sAddress
            End If
        End With
    Next ws
End Sub