Thanks for helping running the code.



The problem that I encounter is that when I select each cell, the text are all left align, not right align as the code that I wrote intended to.

When I ran the debug (ctrl + F8) in VB editor, the alignTxt showed up "empty", but fontsize showed "12". So I know the declaration for alignTxt is wrong but I have no clue how to correct it.