Find vba not working!

[meakashgfx]

Here is the code I tried. but it stuck in finding the cell. (Set RangeObj = Cells.find) Please check the following code:

Sub CopyFromFile()Dim MyFile As StringDim erowDim Filepath As StringFilepath = "C:\Users\Nazmul Hossain Akash\Desktop\Play Excel\Final\"MyFile = Dir(Filepath)Do While Len(MyFile) > 0    If MyFile = "zmaster.xlsm" Then    Exit Sub    End If        Workbooks.Open (Filepath & MyFile)    Range("B2:D18").Copy    Set RangeObj = Cells(1, "A")    ActiveWorkbook.Close        Set RangeObj = Cells.Find(What:=RangeObj, After:=ActiveCell, _    LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _    SearchDirection:=xlNext, MatchCase:=False)    If RangeObj Is Nothing Then MsgBox "Not Found" Else RangeObj.Select    ActiveCell.Offset(rowOffset:=2, columnOffset:=0).Activate        ActiveSheet.PasteSpecial        MyFile = DirLoopEnd Sub

Please help!!!Thanks in Advance.Nazmul Hossain Akash.

 

[RudiS]

Try this...

Sub CopyFromFile()
Dim MyFile As String
Dim erow
Dim Filepath As String
Dim FindString As String
Dim RangeObj As Range


    Filepath = "C:\Users\Nazmul Hossain Akash\Desktop\Play Excel\Final\"
    MyFile = Dir(Filepath)
    Do While Len(MyFile) > 0
        If MyFile = "zmaster.xlsm" Then Exit Sub
        Workbooks.Open Filepath & MyFile
        Range("B2:D18").Copy
        FindString = Cells(1, "A").Value
        ActiveWorkbook.Close False
        Set RangeObj = Cells.Find(What:=FindString, After:=Cells(1), _
                                  LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
                                  SearchDirection:=xlNext, MatchCase:=False)
        If RangeObj Is Nothing Then
            MsgBox "Not Found", vbExclamation
        Else
            RangeObj.Offset(rowOffset:=2, columnOffset:=0).PasteSpecial
        End If
        MyFile = Dir
    Loop
End Sub

 

[meakashgfx]

It works like a superman! Thanks a TON.