Private Sub CommandButton1_Click()
Dim linha As Long
If Me.ListBox1.ListIndex >= 0 Then
linha = Me.ListBox1.ListIndex + 2
Plan1.Range("A" & linha & ":C" & linha).Interior.Color = vbRed
Plan1.Range("A" & linha & ":C" & linha).Font.Color = vbWhite

End If
End Sub

Para limpar formatação:

Private Sub CommandButton2_Click()
Plan1.Range("A2:C" & Plan1.UsedRange.Rows.Count).ClearFormats
End Sub

Muito obrigado!