change tab color of multiple tabs using macro?

[michaely]

I have about 22 tabs in my document and I want to change the tab colors for all of them back to default, do you know what macro you’d use for this?

E.g. I’d like to change the tab color of tabs 1-22

this is what I’m currently using but it only works on the active sheet

oSheet = ThisComponent.getCurrentController.getActiveSheet

oSheet.TabColor = 255

[JohnSUN]

Try

Sub restoreTabColor
Dim oSheet As Variant
	For Each oSheet In ThisComponent.getSheets()
		oSheet.TabColor = -1
	Next oSheet
End Sub