Macro to Italicize a specific row of every worksheet


Macro to Italicize the third row of every worksheet


Sub Italicize()
Dim A As Worksheet, B As Worksheet
Set B = ActiveSheet
For Each A In ThisWorkbook.Worksheets
A.Activate
Rows(3).Font.Italic = True
Next
B.Activate
End Sub

How to use codes shared here?