@ Haije,
Het goede spoor is alvast gevonden, maar binnen de lus (hier dus 14 keer) gebeurt telkens hetzelfde waardoor nog steeds slecht 1 tabblad zal gekopieerd worden.
@Trigz,
Ik neem maar even aan dat ELK tabblad uit je bestand moet gekopieerd worden (als dat niet zo is valt dat met wat aanpassen ook wel op te lossen), en dat de naam OVERAL in H2 staat (?).
In dat geval zou je met onderstaande code een variabel aantal tabbladen moeten verwerkt krijgen :
Sub Test()
Application.ScreenUpdating = False
Dim sBestandsnaam As String
Dim sPadnaam As String
sPadnaam = "\\cli-sd\sd0357\037032\New folder\ROTS data gegevens\Dealerbestanden\"
For t = 1 To Sheets.Count
With Sheets(t)
.Select
.Copy
sBestandsnaam = .Range("H2").Value & "-" & Format(Date, "dd-mm-yyyy") & ".xlsx"
ActiveSheet.SaveAs Filename:=sPadnaam & sBestandsnaam
ActiveWorkbook.Close
End With
Next t
End Sub