Tables and clear format in worksheet

Hi,

i have a lot of listobjects in one worksheet and what want to achevie is to clear formats from them.

I recorded macro:

    Selection.ClearFormats ''here i am selecting whole worksheet
    ActiveSheet.ListObjects("t_Ips").TableStyle = ""
    ActiveSheet.ListObjects("t_DnsSource").TableStyle = ""
    ActiveSheet.ListObjects("t_SharedStorages").TableStyle = ""
    ActiveSheet.ListObjects("t_Subnets").TableStyle = ""
    ActiveSheet.ListObjects("t_ResourceGroups").TableStyle = ""
    ActiveSheet.ListObjects("t_TierAutomations").TableStyle = ""

But you can see for each listobject there is separeted statement. It is possible to do it in one command?

Best,
Jacek

thank you Rorya very much for help!

Jacek