Run Same VBA Macro Code On Multiple Sheets

[snb]

Sub M_snb()
  for j=6 to 13
    sheets("sheet" & j).columns(1).specialcells(4).entirerow.hidden=-1
  next
End Sub