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