VBA 범위 입력 소스 문의 합니다.

아래의 범위는 Range("F13:U40") 전체의 범위 입니다.

전체의 범위가 아닌 구분하여 범위를 설정 하고 싶습니다.

Range("F13:F40"), Range("K13:K40"), Range("P13:P40"), Range("U13:U40")

이렇게 범위를 설정 하려면 어떻게 해야 하나요.

도움 주시면 고맙겠습니다.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
On Error Resume Next

'
Application.EnableEvents = False

'<-- 선택된 셀의 행/열 번호를 받아옵니다. -->
Dim r As Long: r = Target.Row
Dim c As Long: c = Target.Column

'<-- 선택된 셀이 지정한 범위 안의 셀일 경우 명령문을 실행합니다. -->
If Not Intersect(Target, Range("F13:U40")) Is Nothing Then '범위를 입력합니다.
If Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
'명령문 작성
Target.Value = 1
End If
End If

Cancel = True
Application.EnableEvents = True

End Sub