Excel ： 罫線を引く ／ 罫線を消す

Option Explicit

'外枠を太線で引く
Public Sub DrawSotowaku()
'    Range(srange).Select
   
    '左
    With Selection.Borders(xlEdgeLeft)
        .Weight = xlThick
        .LineStyle = xlContinuous
    End With
    '上
    With Selection.Borders(xlEdgeTop)
        .Weight = xlThick
        .LineStyle = xlContinuous
    End With
    '右
    With Selection.Borders(xlEdgeRight)
        .Weight = xlThick
        .LineStyle = xlContinuous
    End With
    '下
    With Selection.Borders(xlEdgeBottom)
        .Weight = xlThick
        .LineStyle = xlContinuous
    End With
End Sub

'罫線を引く
Private Sub DrawKeisen()
    Dim nc As Integer
    Dim nr As Integer
    
    '罫線を引く範囲を選択する
    Range(Range(Range("C2")), Range(Range("C3"))).Select
 
    '線種を指定
    Selection.Borders.Weight = xlThin
    '格子を引く
    Selection.Borders.LineStyle = xlContinuous
    
    '外枠を描く
    DrawSotowaku

    Range("A1").Activate
End Sub

'罫線を描く
Private Sub CommandButton1_Click()
    If Range("C2") = "" Then
        MsgBox "左上のセル位置を入力してください。"
        Exit Sub
    End If
    
    If Range("C3") = "" Then
        MsgBox "右下のセル位置を入力してください。"
        Exit Sub
    End If
        
    '罫線を引く
    Call DrawKeisen
    
End Sub

'罫線を消す
Private Sub CommandButton2_Click()
   '罫線を消す範囲を選択する
    Range(Range(Range("C2")), Range(Range("C3"))).Select
    '消す
    Selection.Borders.LineStyle = False
    
    Range("A1").Activate
End Sub