VBA Excel : Unfilter / buka semua filter dalam sebuah sheet tanpa menghapus filter, Unfilter all data without erase filter

Sub UNFILTER_DATA()

If ActiveSheet.FilterMode = True Then

ActiveSheet.ShowAllData

End If

On Error Resume Next

End Sub

_____________________________________________________________________

IMPORTANT - This email and any attachments may be confidential and privileged. 

If received in error, please contact Thiess and delete all copies.  You may not

rely on advice and documents received by email unless confirmed by a signed Thiess

letter.  This restriction on reliance will not apply to the extent that the above email

communication is between parties to a contract and is authorised under that contract.

Before opening or using attachments, check them for viruses and defects.  Thiess'

liability is limited to resupplying any affected attachments. THIESS PRIVACY STATEMENT