/VBA/Excel vba paste all to each sheet in workbook

Excel vba paste all to each sheet in workbook

Option Explicit

Sub Button4_Click()

    Const RangeAddress As String = "H4:AD600"  ' Source Range Address
    Dim SourceRange As Range                   ' Source Range
    Dim i As Long                              ' Worksheets Counter

    With ThisWorkbook
        ' Define and copy Source Range in First Worksheet to clipboard.
        Set SourceRange = .Worksheets(1).Range(RangeAddress)
        SourceRange.Copy
        ' Paste Source Range into the remaining worksheets.
        For i = 2 To .Worksheets.Count
            .Worksheets(i).Range(RangeAddress).PasteSpecial xlPasteFormulas
        Next i
        ' Select range 'A1' in all worksheets and activate first worksheet.
        For i = .Worksheets.Count To 1 Step -1
            .Worksheets(i).Activate
            .Worksheets(i).Range("A1").Select
        Next i
    End With

    ' Remove Source range from clipboard.
    Application.CutCopyMode = False
    ' Inform user that the operation has finished.
    MsgBox "Copied Range(" & RangeAddress & ") from the first to " _
      & "the remaining worksheets.", vbInformation, "Copy Range"

End Sub

Source: stackoverflow.com

Similar codes

-1 vote151 views1 answer
System.Data.OleDb.OleDbException: 'No value given for one or more required parameters.'
VBA
5 votes142 views1 answer
Excel formula how to create strings containing double quotes
VBA
0 vote138 views1 answer
Vlookup columns not next to each other
VBA
0 vote165 views1 answer
Excel vba move down to next visible cell
VBA
0 vote147 views1 answer
How to mount floppy disks in vb.net
VBA
0 vote134 views1 answer
Add Formula to Shape Text in VBA
VBA
0 vote139 views1 answer
Excel VBA web scraping
VBA
2 votes141 views1 answer
Excel vba check if key is in collection
VBA
0 vote141 views1 answer
Excel vba formatconditions range
VBA
0 vote137 views1 answer
Excel vba center userform
VBA