Marker alle ark/faner undtaget 2

Dim WS As Worksheet
Const Sheet_Not_To_Select As String = "Eksport"
Const Sheet_Not_To_Select2 As String = "Forside"
Const Sheet_To_Copy = "Copyside" ' rettes til den rigtige

Dim wsCopysheet As Worksheet
Dim rCopyArea As Range
Dim wsPasteSheet As Worksheet
Dim rPasteCell As Range
     
Sub CopyPasteSheet()
    For Each WS In Worksheets
        If WS.Name <> Sheet_Not_To_Select Then
            If WS.Name <> Sheet_Not_To_Select2 Then
                If WS.Name = Sheet_To_Copy Then
                    CopySheet
                Else
                    PasteSheet
                End If
            End If
        End If
    Next
End Sub
Private Sub PasteSheet()
    Set wsPasteSheet = WS
    Set rPasteCell = wsPasteSheet.Range("A3")
    rPasteCell.PasteSpecial xlPasteAll
End Sub
Private Sub CopySheet()
    Set wsCopysheet = WS
    Set rCopyArea = wsCopysheet.Range("A3")
    Set rCopyArea = Range(rCopyArea, wsCopysheet.Cells(Rows(rCopyArea.End(xlDown)), Columns(rCopyArea.End(xlToRight))))
    rCopyArea.Copy
End Sub