Цикл всех листов в рабочей книге

Question

Я хочу повторить этот код на всех листах книги.

Иногда может быть 1-2 рабочих листа иногда 50+.

Sub HoursTotal() 
' 
' HoursTotal Macro 
' 

Range("F2").Select 
ActiveCell.FormulaR1C1 = "=SUM(C[-1])" 
Range("F1").Select 
ActiveCell.FormulaR1C1 = "Total Hours" 
Range("G1").Select 


End Sub 

Answer 1

Это должно сделать это.

Sub HoursTotal() 
    Dim ws As Worksheet 

    For Each ws In Worksheets 
     ws.Range("F2").FormulaR1C1 = "=SUM(C[-1])" 
     ws.Range("F1").FormulaR1C1 = "Total Hours" 
     ws.Range("G1").Select 'I don't think you need this line but I included it anyways 
    Next 
End Sub 

Answer 2

Простая модификация текущего кода должен сделать это:

Sub HoursTotal() 
' 
' HoursTotal Macro 
' 

Dim ws as Worksheet 

For Each ws in Worksheets 

    ws.Range("F2").Select 
    ActiveCell.FormulaR1C1 = "=SUM(C[-1])" 
    ws.Range("F1").Select 
    ActiveCell.FormulaR1C1 = "Total Hours" 
    ws.Range("G1").Select 

Next ws 

End Sub 

Но вот как он выглядит без Select «s

Sub HoursTotal() 
' 
' HoursTotal Macro 
' 

Dim ws as Worksheet 

For Each ws in Worksheets 

    ws.Range("F2").FormulaR1C1 = "=SUM(C[-1])" 
    ws.Range("F1").FormulaR1C1 = "Total Hours" 
    ws.Range("G1").Select 

Next ws 

End Sub