Remove grid lines for a specified area on multiple sheets

I have this code to delete grid lines in some of the cells I need. Can anyone help me on how to automate this to delete the grid lines for all active worksheets?

Formula:

Sub deleteGrid()



    Range("A:A,1:5").Select

    With Selection.Interior

        .ColorIndex = 0

        .Pattern = xlSolid

    End With

    Range("A1").Select

End Sub