Auto Unhide all fields

You can try with this code:

Sub Macro1()
    On Error Resume Next
    ActiveSheet.ShowAllData
    On Error GoTo 0
End Sub

or with this:

Sub Macro2()
   'remove filters
    ActiveSheet.AutoFilterMode = False
   'add filters
    ActiveSheet.Cells.AutoFilter
End Sub

Regards,
Antonio

Thanks Antonio, it worked perfectly, I used the first macro and added it to the open workbook section to auto run on open.

Brilliant!