Hello,

I'm attempting to create a macro which performs the following on every Worksheet in a Workbook.

 Range("U10").Select
    FormulaR1C1 = "=R3C2"
    Range("U10").Select
    Selection.AutoFill Destination:=Range("U10:U19"), Type:=xlFillDefault
    Range("U10:U19").Select
    Selection.Copy
    Range("V10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("V10:V19").Select
        Selection.Copy
    Range("U10").Select
    ActiveSheet.Paste
    Range("V9:V19").Select
    Selection.ClearContents
    Range("A16").Select
    Selection.ClearContents
I've tried:

Sub parsec()
    
    Dim ws As Worksheet
            For Each ws In ThisWorkbook.Worksheets
            
   'The above code
    
        Next ws
        
End Sub
Unfortunately this appears to be only applying this macro to the current active sheet.

Any thoughts on why this might be?