Bold & Centre Aligned

[adam]

The following code inserts text rows when the list box is double clicked.

How could I make the code to insert the texts in center aligned and bold to the appropriate sheet rows mentioned in the code.

Any help on this would be kindly appreciated.

Thanks in advance.

Code: Select all

Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  Dim r As Long
  With Worksheets("NewOrder")
    If Range("F14") = "" Then
      r = 14
    Else
      r = .Range("F13").End(xlDown).Row + 1
    End If
    .Range("F" & r) = Me.ListBox2.Column(0)
  End With
End Sub

[rory]

Code: Select all

With .Range("F" & r)
   .Value = Me.ListBox2.Column(0)
   .font.Bold = True
   .horizontalalignment = xlHaligncenter
End With

[HansV]

Change the line

Code: Select all

    .Range("F" & r) = Me.ListBox2.Column(0)

to

Code: Select all

    With .Range("F" & r)
        .Value = Me.ListBox2.Column(0)
        .HorizontalAlignment = xlCenter
        .Font.Bold = True
    End With

[adam]

Thanks for the help Rory & Hans. It worked fine.