Have you moved this from the workbook to the sheet? It needs to be adjusted to fit the environment you put it in, do you want it to apply to all sheets (except DATA), or just this specific one?
I'd also recommend you remove Modules a and 2 (your Auto_Open macro doesn't achieve anything!)
CC
Bookmarks