zie bijlage waarin de voorwaardelijke opmaak is uitgebreid

Probeer deze maar. Naam in cel C2

Private Sub CommandButton1_Click()
        On Error GoTo PASOP

        Dim NieuwBladNaam As String
        Dim Teller As Integer
        Dim Bestaat As Boolean

        ' Begin met de naam uit cel C2 van Blad1
        NieuwBladNaam = Blad1.[C2]
        Teller = 0

        ' Controleer of een blad met deze naam bestaat
        Do
            Bestaat = False
            For Each ws In ThisWorkbook.Sheets
                If ws.Name = NieuwBladNaam Then
                    Bestaat = True
                    Exit For
                End If
            Next ws

            ' Als de naam al bestaat, voeg een teller toe en probeer opnieuw
            If Bestaat Then
                Teller = Teller + 1
                NieuwBladNaam = Blad1.[C2] & "_" & Teller
            End If
        Loop While Bestaat

        ' Maak een kopie van Blad1 en geef het de unieke naam
        Blad1.Copy , Sheets(Sheets.Count)
        ActiveSheet.Name = NieuwBladNaam

        ' Leeg de gewenste cellen
        Blad1.Range("C5:C9").ClearContents
        Blad1.Range("E5:E9").ClearContents

        ' Selecteer Blad1 en voer extra acties uit
        Blad1.Select
'        VerwijderAfbeeldingen
'        Leegmaken
        Exit Sub

PASOP:
        MsgBox ("Er is een fout opgetreden! Controleer de bladnaam of probeer het opnieuw.")
        Exit Sub
End Sub

Beste

zie bijlage

Hallokes,

Even een update.

Donderdag WD 6Tb HDD besteld bij Alternate, gisteren vrijdag gekregen, uitgepakt, in een "docking" gestoken,
werd diect herkent en werd er gevraagd of ik de schijf wou partitioneren, via Windows schijfbeheer de schijf in drie partities gemaakt en geformateerd.
Vandaag in de PC gestoken en nu volle bak kopieëren.....

Hééél vlotjes verlopen, het moet niet altijd moeilijk gaan hé. 

Allemaal nog een prettig w-end gewenst.

Jean-Pierre.

Hallo,

Zoek het topic uit 2007 eens op.
Topic: beduidende cijfers
https://www.oplossing.be/excel/beduidende-cijfers/15/

Misschien heb je daar iets aan.