Automatisch opslaan

[JanOdb]

Ik heb hier al heel wat vragen gesteld, en dacht dat mijn excelletje nu in orde was, maar er verschijnt een inputbox - opgeroepen door een macro - die ik niet wil.

Dit is de macro:

ActiveSheet.Unprotect "LoekaNomi2"

Range("I2") = Range("I2") + Range("B5").Value

Range("I5") = Range("I5") + Range("B7").Value

For t = 13 To 49
Range("H" & t) = Range("H" & t) + Range("C" & t)

Next

Range("E11,B7,E5,C13:C49").Select
Range("C13").Activate
Selection.ClearContents
Range("I1").Select

Dim pathnaam(2) As String

pathnaam(1) = "C:\Parochie"
pathnaam(2) = "D:\Parochie"

For i = 1 To 2

ActiveWorkbook.SaveAs pathnaam(i) & InputBox("parochiefeesten2018")

Next

ActiveSheet.Protect "LoekaNomi2"

End Sub

Als ik die uitvoer verschijnt er dus:



Aan de macro is te zien dat ik op 2 plaatsen opsla, maar ik wil niet dat de inputbox verschijnt. Kan ik dat stukje in de macro dan gewoon verwijderen (dit dus: & Inputbox("parochiefeesten2018") ?

 

[snb]

Lees svp eerst eens: https://www.helpmij.nl/forum/forumdisplay.php/5-Excel

 

[VenA]

Plaats code svp tussen codetags. De padnamen kloppen niet. Als je geen inputbox wil, dan laat je deze toch weg.

 

[edmoor]

Ook heb je maar halve code geplaatst dus mist in ieder geval de heading van de Sub.