Copy paste cells to same location in every worksheet

[Dokat]

Hi,

I have below code where i'd like to copy AG21, W22 and AB22 from Sheets("ST") and paste to same cell location in every worksheet excluding "Summary" an "ST". Can anyone help me modify the code as it is not working currently

Option Explicit

Sub TEST()
Dim sht As Worksheet
Sheets ("ST").Range("AG21").Copy
Sheets ("ST").Range("W22").Copy
Sheets ("ST").Range("AB22").Copy
Selection.Range("AG21").PasteSpecial xlPasteValues
Selection.Range("W22").PasteSpecial xlPasteValues
Selection.Range("AB22").PasteSpecial xlPasteValues
Application.CutCopyMode = False


End Sub

 

[My Aswer Is This]

Try This:

Option Explicit

Sub TEST()
'Modified  2/17/2022  1:53:43 AM  EST
Application.ScreenUpdating = False
Dim i As Long

    For i = 1 To Sheets.Count
        Select Case Sheets(i).Name
            Case "ST", "Summary"
        
            Case Else
                Sheets(i).Range("AG21").Value = Sheets("ST").Range("AG21")
                Sheets(i).Range("W22").Value = Sheets("ST").Range("W22")
                Sheets(i).Range("AB22").Value = Sheets("ST").Range("AB22")
        End Select
    Next
Application.ScreenUpdating = True

End Sub

 

[Dokat]

Try This:

Option Explicit

Sub TEST()
'Modified  2/17/2022  1:53:43 AM  EST
Application.ScreenUpdating = False
Dim i As Long

    For i = 1 To Sheets.Count
        Select Case Sheets(i).Name
            Case "ST", "Summary"
       
            Case Else
                Sheets(i).Range("AG21").Value = Sheets("ST").Range("AG21")
                Sheets(i).Range("W22").Value = Sheets("ST").Range("W22")
                Sheets(i).Range("AB22").Value = Sheets("ST").Range("AB22")
        End Select
    Next
Application.ScreenUpdating = True

End Sub

Works perfect. Thank you

 

[My Aswer Is This]

Works perfect. Thank you

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.