Jag behöver hjälp med nedanstående.  Koden funkar hela vägen fram till  Application.Run _"JS7". "JS8" körs ej. "JS8" ser ut precis som de andra och funkar när jag kör den ensamt. Är problemet att det max fungerar med 6 st Application.Run?  

    Sheets("Ritn Bladbygg").Select

    If Range("E46") <> "0" Then

    Dim fName: fName = ActiveSheet.Range("E46") & ".jpg"

    Dim fPath: fPath = ThisWorkbook.Path & "\images\bladbygg\"

    Range("F6").Select

    ActiveSheet.Pictures.Insert(fPath & fName).Select

    Application.Run _

        "JS2"

    Application.Run _

        "JS3"

    Application.Run _

        "JS4" 

    Application.Run _

        "JS5" 

    Application.Run _

        "JS6"     

    Application.Run _

        "JS7" 

    Application.Run _

        "JS8"

End If

End Sub