Your code is pretty solid. I so have a couple of minor tweaks.
Function CodeName() As Worksheet
Set CodeName = DataSheet
This function is just adding a layer obfuscation. You should just change the worksheets code name.
Ctrl + R will Open the Folder Explorer
Alt + F4
From here you can change the Worksheet's Name property.
Combining lines ...