When you say you've added a description field to the userform do you mean a
textbox? If so try:

Private Sub CommandButton1_Click()
With ActiveSheet
If Me.OptionButton1 = True Then
.Range("D12").EntireColumn.Insert
.Range("D11").Value = Me.TextBox1.Value
Else
.Range("F12").EntireColumn.Insert
.Range("F11").Value = Me.TextBox1.Value
End If
End With
End Sub

Hope this helps
Rowan

"oberon.black" wrote:

>
> I have the following code linked to a userform:
>
>
> Code:
> --------------------
>
> Private Sub CommandButton1_Click()
> With ActiveSheet
> If Me.OptionButton1 = True Then
> .Range("d12").EntireColumn.Insert
> Else
> .Range("f12").EntireColumn.Insert
> End If
> End With
> End Sub
> Private Sub OptionButton1_Click()
> Me.OptionButton1.Value = True
> End Sub
>
> --------------------
>
>
> I have added a description field to my userform. This field is to add
> a title to the newly created column.
>
> What do I need to add to this code to copy the title out of the
> description of the userform and place it into 'row 11 ' of the column
> the code above inserts?
>
>
> --
> oberon.black
> ------------------------------------------------------------------------
> oberon.black's Profile: http://www.excelforum.com/member.php...o&userid=26732
> View this thread: http://www.excelforum.com/showthread...hreadid=401851
>
>