Excel VBA

Some usefull snips of Excel VBA that i use.

work with multiple Worksheets
this macro will Loop through all work sheets doing X... i found this on utteraccess this thread

Public Sub UpdatetoNextWeek

Dim w As Excel.Worksheet

If MsgBox("Update the week and period details?", vbYesNo + vbQuestion, "Confirm update") = vbYes Then

For Each w In ActiveWorkbook.Worksheets

w.Range("H9") = w.Range("H9") + 1 w.Range("F9") = w.Range("F9") + 7 Next w MsgBox "Done", vbOKOnly

End If

End Sub