Problem with calculating

Excellent, thanks for the tip. I thought it would be nice to clear the cell for the user but didn't realize that was causing the recalculation. One other question I have is if it's possible to declare more than one range in the code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Const WS_RANGE As String = "D9:O9"
On Error Resume Next
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
Application.ScreenUpdating = False
frmChange.Show
End If

End Sub

For example, is there a way to set the range as D9:09, D13:013, D15:015, etc, without creating a new sub for each?