Hi All,

I've been running this section of code without any problems for the past three months. Today, for the first time ever, Object variable or With block variable not set (Error 91)? 

Sub ICE_Unzip()
    Dim file2 As String
    Dim sheet As Worksheet
    Set sheet = Sheets("Sheet1")
    file2 = [A3]
    
    Call UnZip("R:\Margin Stuff\ICE Span", (file2))
 
End Sub
 
 Sub UnZip(strTargetPath As String, Fname As Variant)
 
    Dim oApp As Object
 
    Dim FileNameFolder As Variant
 
 
 
    If Right(strTargetPath, 1) <> Application.PathSeparator Then
 
        strTargetPath = strTargetPath & Application.PathSeparator
 
    End If
 
 
 
    FileNameFolder = strTargetPath
 
 
 
    Set oApp = CreateObject("Shell.Application")
 
    oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).items
 
End Sub
The code stopped running at: 

    oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).items
Any ideas how to fix?

Thanks!

L