I have the following code linked to a userform:
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?
Bookmarks