celwaarde in VBA kopieren inclusief validatie

[jagea]

Hoi,

Onderstaande code werkt goed, behalve dat alleen de celwaarde wordt gekopieerd en niet de validatie. Omdat het een lijst betreft is dat wel nodig.

Wie helpt?

Al vast bedankt,

Age

For Each ws In ThisWorkbook.Sheets

If ws.Name <> "Toelichting" Then
If ws.Visible <> xlSheetVeryHidden Then
ws.Cells(7, 3) = Sheets("Toelichting").Range("C7")


End If

End If

 

[Cobbe]

Doe hier eens de test mee:

For Each ws In ThisWorkbook.Sheets
 With ws
  If .Name <> "Toelichting" Then
   If .Visible <> xlSheetVeryHidden Then
    Sheets("Toelichting").Range("C7").Copy
     With .Cells(7, 3)
      .PasteSpecial Paste:=xlPasteValidation
      .Value = Sheets("Toelichting").Range("C7").Value
     End With
   End If
  End If
 End With
Next