'This converts the original image to a smaller one of max 300 pixels If Err.Number <0 Then MsgBox "Error converting image" Else MsgBox "Conversion OK" End If Set objIM = Nothing End Sub I am not trying to convince you but ... ;-) With a few lines of code you could handle a w...