Image download loop, cannot resolve IF failed..

I think I resolved this one myself!

Can someone confirm please?

If URLDownloadToFile(0, sURL, sLocalFile, 0, 0) = 0 Then
        Range("B" & i).FormulaR1C1 = "Completed"
        Range("B" & i).Interior.ColorIndex = 4
    Else
        Range("B" & i).FormulaR1C1 = "Failed"
        Range("B" & i).Interior.ColorIndex = 3
    End If
    
    Next i

Hi Aurbo,

Try the following (code excerpt follows):

Private Sub CommandButton1_Click()
    Dim sURL As String
    Dim sLocalFile As String
    Dim sDestination As String
    Dim sText As String
    Dim i As Integer
    Dim ws As Worksheet
    
    For i = 4 To 9
      With ws
        Range("B" & i).FormulaR1C1 = "Working...."
        Range("B" & i).Interior.ColorIndex = 6
    
        sText = Sheet1.Range("C" & i).Value
        sURL = sText
        sLocalFile = Sheet1.Range("D" & i).Value
        DownloadFile sURL, sLocalFile
      End With
      If LJMFileExists(sLocalFile) = True Then
        Range("B" & i).FormulaR1C1 = "Completed"
        Range("B" & i).Interior.ColorIndex = 4
      Else
        Range("B" & i).FormulaR1C1 = "Failed"
        Range("B" & i).Interior.ColorIndex = 3
      End If
    
    Next i
    
End Sub

Private Function LJMFileExists(sPathAndFullFileName As String) As Boolean
  'This returns TRUE if a file exists and FALSE if a file does NOT exist
  
  Dim iError As Integer
  Dim iFileAttributes As Integer

  On Error Resume Next
  iFileAttributes = GetAttr(sPathAndFullFileName)
     
  'Check the internal error  return
  iError = Err.Number
  Select Case iError
    Case Is = 0
        iFileAttributes = iFileAttributes And vbDirectory
        If iFileAttributes = 0 Then
          LJMFileExists = True
        Else
          LJMFileExists = False
        End If
    Case Else
        LJMFileExists = False
  End Select

  On Error GoTo 0

End Function

Lewis