After running VBA my cells & font come back smaller and my mouse click is off by a couple cells

[aaminchew]

I have a workbook that I log monthly activity on within my office. There is a home screen with a button for each month. You click the button, and it runs the following VBA that opens selected month and hides all other sheets.
I have one for every month of the year, and each button is assigned to the perspective macro.

Sub 
    ThisWorkbook.Unprotect Password:="5005"
    Sheets("Jan").Visible = True
    Sheets("Aaron's Home").Select
    Sheets("Jan").Select
    For Each sht In Sheets
    If sht.Name <> "Jan" Then
    sht.Visible = xlSheetHidden
    End If
    Next sht
    ThisWorkbook.Protect Password:="5005"
End Sub

I then have a button on each sheet that returns back to the home screen.

Sub
    ThisWorkbook.Unprotect Password:="5005"
    Sheets("Aaron's Home").Visible = True
    Sheets("Jan").Select
    Sheets("Aaron's Home").Select
    For Each sht In Sheets
    If sht.Name <> "Aaron's Home" Then
    sht.Visible = xlSheetHidden
    End If
    Next sht
    ThisWorkbook.Protect Password:="5005"
End Sub

The buttons work, and they get me to the proper sheet.
The problem is that at random times, when I get to the selected sheet the font and cells are smaller and pixelated, and when I am trying to click a button, I have to click the cell that is down two and to the right one.