Macros won't run from 2010 to 2016

**mskarp21** · 08-02-2019, 05:01 PM

I'm having a problem with a macro that won't run. I've recently upgraded to 2016. I tried running an one that I know works but it won't run. I've changed the security settings but it still won't run. Any ideas?

ActiveWorkbook.SaveAs Filename:=Sheets("Job Info").Range("D29") _
        & Sheets("Job Info").Range("D28") & "\Data\" _
        & Sheets("Job Info").Range("D28") & "_0ExpressData.xls", _
        FileFormat:=xlNormal, CreateBackup:=False

**mjr veverka** · 08-02-2019, 05:20 PM

How does this macro look like ? Can you present this macro in its entirety ?

**mskarp21** · 08-02-2019, 05:35 PM

'   Save - _0ExpressData.xls
    
    Run "Progress"
    Sheets("Job Info").Select
    Sheets("Processing").Visible = False
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=Sheets("Job Info").Range("D29") _
        & Sheets("Job Info").Range("D28") & "\Data\" _
        & Sheets("Job Info").Range("D28") & "_0ExpressData.xls", _
        FileFormat:=xlNormal, CreateBackup:=False

**mjr veverka** · 08-02-2019, 09:52 PM

Maybe try something like that:

'   Save - _0ExpressData.xls
    
    Run "Progress" ' ==> ??? Maybe rather: Call Progress
    Sheets("Job Info").Select
    Sheets("Processing").Visible = False
    Application.DisplayAlerts = False
    '-----------------------------------------------------
    Dim FleNme As String, FldrNme As String
    With Sheets("Job Info")
        FleNme = .Range("D29").Value & .Range("D28").Value & "\Data\" & .Range("D28").Value & "_0ExpressData.xls"
    End With
    FldrNme = Left(FleNme, InStrRev(FleNme, "\", -1, 1))
    If Dir(FldrNme, vbDirectory) = "" Then MsgBox "There is no such directory:" & vbCrLf & "'" & FldrNme & "'": Exit Sub
    '-----------------------------------------------------
    ActiveWorkbook.SaveAs Filename:=FleNme, FileFormat:=56, CreateBackup:=False
    '-----------------------------------------------------
    Application.DisplayAlerts = True

Macros won't run from 2010 to 2016

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Macros won't run from 2010 to 2016

Re: Macros won't run from 2010 to 2016

Re: Macros won't run from 2010 to 2016

Re: Macros won't run from 2010 to 2016

Thread Information

Users Browsing this Thread

Similar Threads

Excel 2010 vs. 2016?

2010 vs 2013 vs 2016

Excel 2010 VS 2016

2010 macro not working in 2016! Help Please!

VBA Code works in 2010, but not in 2016

Change From 2010 to 2016

[SOLVED] Issues with code sent from 2010 to 2016

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions