copy activecell value to next cell to the right

[board]

This code copies the value of combobox1 and puts it in the active cell
when the command button is clicked.

Private Sub CommandButton1_Click()

Dim str As String
str = ComboBox1.Value
ActiveCell.Value = str


End Sub

If I have checkbox1 checked on the userform containing this code, I want the above value to go to the next cell on the right to the activecell as well as the activecell when the button is pressed.

Cheers
Stuart

 

[Fluff]

How about

Private Sub CommandButton1_Click()
   If Me.CheckBox1 Then
      ActiveCell.Resize(, 2).Value = Me.ComboBox1.Value
   Else
      ActiveCell.Value = Me.ComboBox1.Value
   End If
End Sub

 

[board]

cheers I'll give it a go