Macro Keeps Looping Without Coming To The End Of The Last Worksheet

This macro works when there are only a small number of worksheets in a workbook. But as soon as it increases to say 20 or above worksheets, the macro keeps looping without coming to the end of the last worksheet.


Sub LDK_Print_Orientation_New()

Dim intOr As Integer
Dim wkscount As Integer

wkscount = ActiveWorkbook.Worksheets.Count
For x = 1 To wkscount
Worksheets(x).Select

Application. ScreenUpdating = False 'Switches off screen updating and calculations

x = MsgBox("Print in Portrait", vbYesNo, "Printing Choice")............