G
Guest
I am trying to define a range for autofill with 2 textboxes on a userform.
This code is in the from module
Private Sub CommandButton1_Click()
ActiveCell = "C8"
ActiveCell.FormulaR1C1 = Me.TextBox2.Value
ActiveCell.Offset(1, 0).Activate
ActiveCell.FormulaR1C1 = Me.TextBox2 + 1
Range("C8:C9").Select
Selection.AutoFill Destination:=Range(Cells("8,C"),
Cells("me.TextBox2.Value = TextBox3.Value,C")), _
Type:=xlFillDefault
End Sub
This returns a type mismatch
Could anyone suggest why.
Thanks in in advance for any help
This code is in the from module
Private Sub CommandButton1_Click()
ActiveCell = "C8"
ActiveCell.FormulaR1C1 = Me.TextBox2.Value
ActiveCell.Offset(1, 0).Activate
ActiveCell.FormulaR1C1 = Me.TextBox2 + 1
Range("C8:C9").Select
Selection.AutoFill Destination:=Range(Cells("8,C"),
Cells("me.TextBox2.Value = TextBox3.Value,C")), _
Type:=xlFillDefault
End Sub
This returns a type mismatch
Could anyone suggest why.
Thanks in in advance for any help