Excel - Edición de macro Excel para Colorear y negrita celdas y fondo verde

wcolor = vbBlack: wbold = False

If CheckBox4 Then wcolor = 3: wbold = True

Cells(fil, col) = TextBox1          'Item #

Cells(fil, col).Font.ColorIndex = wcolor

Cells(fil, col).Font.Bold = wbold

Cells(fil, col).Interior.ColorIndex = 43

Cells(fil, col + 1) = TextBox2      'Producto

Cells(fil, col + 1).Font.ColorIndex = wcolor

Cells(fil, col + 1).Font.Bold = wbold

Cells(fil, col + 1).Interior.ColorIndex = 43

Cells(fil, col + 2) = TextBox3      'Descripcion del Producto

Cells(fil, col + 2).Font.ColorIndex = wcolor

Cells(fil, col + 2).Font.Bold = wbold

Cells(fil, col + 2).Interior.ColorIndex = 43

Cells(fil, col + 8) = TextBox4      'Cant.

Cells(fil, col + 8).Font.ColorIndex = wcolor

Cells(fil, col + 8).Font.Bold = wbold

Cells(fil, col + 8).Interior.ColorIndex = 43

Cells(fil, col + 9) = TextBox5      'Pagina #

Cells(fil, col + 9).Font.ColorIndex = wcolor

Cells(fil, col + 9).Font.Bold = wbold

Cells(fil, col + 9).Interior.ColorIndex = 43