| 
    
     |  | エクセルVBEの質問です。 
 現在、下記の様にユーザーホームのTextBox1に記入したものがSheet1のA列に順次記入されていくようにしているのですが、新たにユーザーホームにチェックボックス1を作り、チェックを入れたものはセルの背景が赤になるように設定したいのですがどのようにすれば良いでしょうか。
 
 よろしくおねがいします。
 
 -----------------------------------------------------------------
 
 Private Sub CommandButton1_Click()
 Dim lRow As Long
 With Worksheets("Sheet1")
 lRow = .Range("A" & Rows.Count).End(xlUp).Row
 .Range("A" & lRow + 1).Value = TextBox1.Value
 End With
 ComboBox1.Value = ""
 End Sub
 
 ----------------------------------------------------------------
 
 |  |