I have a simple routine that uses a spin button to resize several rows
from a height of 2 to 12.75.

Sub Row_Height_Change()
Application.ScreenUpdating = False
UnProtectAllSheets
Sheets("Re-Issue Input Form").Select
If Sheets("Re-Issue Input Form").Range("Event_2_Row_Height").Value
= 1 Then
Range("13:18,26:31,39:44").Select
Selection.RowHeight = 12.75
Else
Range("13:18,26:31,39:44").Select
Selection.RowHeight = 2
End If
Application.ScreenUpdating = True
ProtectAllSheets
End Sub

I have turned the screen updating off but I still get a annoying
screen flicker. Does anyone know how I can eliminate this?

Thanks in advance for any answers.