Excel VBA Multiple loops

[p45cal]

maybe:

Sub RemoveBlankCells2()
Dim q As Long, Sh

Application.EnableEvents = False
For Each Sh In Sheets(Array("Fire", "FA Def", "FA NA", "Sprinkler", "Sprinkler Def", "Sprinkler NA", "Suppression", "Suppression Def", "Suppression NA", "Inspections"))
  With Sh
    For q = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
      If Trim(.Range("I" & q).Value) = "" Then .Range("I" & q).ClearContents
    Next q
  End With
Next Sh
Application.EnableEvents = True
End Sub

?