After some research I think it's not possible to show all the sheets through macro. You can use either Ctrl + Shift + S key combination manually or some work around like mentioned above. I tried various various methods but no luck so far. I even tried sendkeys in macro but unfortunately the key specific key combination seems not working. someone has explained the reason in below link.