Excel VBA Range FindNext not working

[nutbolt]

I'm getting error unable to get the FindNext property of the range class? What am I doing wrong in the code?

Private Sub cmdInsertPhoto1_Click()
'insert the photo1 from the folder into each worksheet
Dim ws As Worksheet
Dim fso As FileSystemObject
Dim folder As folder
Dim rng As Range, cell As Range
Dim strFile As String
Dim imgFile As String
Dim localFilename As String
Dim pic As Picture
Dim findit As String

 
 Application.ScreenUpdating = True
 
 'delete the two sheets if they still exist
 For Each ws In ActiveWorkbook.Worksheets
  If ws.Name = "PDFPrint" Then
        Application.DisplayAlerts = False
        Sheets("PDFPrint").Delete
        Application.DisplayAlerts = True
  End If
 Next
 
 For Each ws In ActiveWorkbook.Worksheets
  If ws.Name = "DataSheet" Then
        Application.DisplayAlerts = False
        Sheets("DataSheet").Delete
        Application.DisplayAlerts = True
  End If
 Next
        
   
    Set fso = New FileSystemObject
    Set folder = fso.GetFolder(ActiveWorkbook.Path & "\Photos1\")
      
    'Loop through all worksheets
    For Each ws In ThisWorkbook.Worksheets
    ws.Select
        
         Set rng = Range("A:A")
        
         For Each cell In rng
          If cell = "CG Code" Then
          'find the next adjacent cell value of CG Code
           strFile = cell.Offset(0, 1).Value 'the cg code value
           imgFile = strFile & ".png" 'the png imgFile name
           localFilename = folder & "\" & imgFile 'the full location
                   
           'find Photo1 cell and select the adjacent cell to insert the image
           findit = Range("A:A").Find(what:="Photo1", MatchCase:=True).Offset(0, 1).Select
           ActiveCell.EntireRow.RowHeight = 200 'max row height is 409.5
                
           Set pic = ws.Pictures.Insert(localFilename)
             With pic
                .ShapeRange.LockAspectRatio = msoFalse
                .ShapeRange.Width = 200
                .ShapeRange.Height = ActiveCell.MergeArea.Height
                .ShapeRange.Top = ActiveCell.MergeArea.Top
                .ShapeRange.Left = ActiveCell.MergeArea.Left
                .Placement = xlMoveAndSize
             End With
             
            'find next photo1
           Dim finditnext As Range
           Set finditnext = rng.FindNext("Photo1")
           
            
          End If
            
            'delete photo after insert
            'Kill localFilename
            
         Next cell
    
    Next ws
    
 
    
    Application.ScreenUpdating = True
    
     ' let user know its been completed
     MsgBox ("Worksheets created")
End Sub

 

[nutbolt]

I managed to fix this problem with using two collections and an array to handle the import.

 

[smozgur]

I managed to fix this problem with using two collections and an array to handle the import.

The original question's answer is "the wrong parameter used with the FindNext method" and this is explained in posts #6 and #8, and more information about your data structure and the current code is also asked in both #8 and #10 to provide better solutions since there are logical and structural mistakes in the current code. On the other side, how you managed to fix the problem by using some other objects is not very clear unless you provide a working code. Therefore, I removed the solution mark from your own post. You can either post the working code and then it would be perfectly fine to mark your own post as the solution or respond to helpers' questions to seek more help. Either way, it will be more helpful for future readers.