Created a short macro to unzip some files, and start a clock after a commandbutton is pressed. I am on a network, with some restrictions, but I do have admin rights to both this computer and the network folder. Problem is, it acts ok in the spreadsheet or when it's stepped through, but it does not unzip my files. Any ideas?
Sub Start()
CommandButton3_Click
End Sub
Private Sub CommandButton3_Click()
Const SZP As String = ("7z.exe")
Dim Cmd$
Dim Pth As String
Pth = Application.ActiveWorkbook.Path & "\"
Cmd$ = Pth & SZP & " e " & ("Myfiles.zip") & " -o " & Pth
'On Error Resume Next
Shell (Cmd$)
Range("D4").Value = Now
Sheets("Q1").Select
Range("a1").Select
End Sub
Sub Stp()
CommandButton4_Click
End Sub
Private Sub CommandButton4_Click()
Range("D5").Value = Now
End Sub
What I have tried:
I've tried just about everything I can think of.
Thanks in advance
Bob Williams