Select Active Workbook with Userform Code

[bamaisgreat]

Thanks for taking a look at my post.

I have a userform with a command button having the following code.
Im unsure what code to add to have it work on the active sheet. Thanks again

Private Sub CommandButton1_Click()
Range("F1") = TextBox1.Text
Range("H1") = TextBox2.Text
Range("N1") = TextBox3.Text
Range("M2") = TextBox4.Text
Range("AA1") = TextBox5.Text
Range("AA2") = TextBox6.Text
Range("AC2") = TextBox7.Text
End Sub

 

[Fluff]

That should work on the active sheet, are you saying it doesn't?

 

[bamaisgreat]

Yes. Sorry for the post. I had the code in the wrong place.

 

[Fluff]

Yes. Sorry for the post. I had the code in the wrong place.

No problem, glad you got it sorted

 

[bamaisgreat]

I do have 1 problem. I keep having an error at the end with line. I Think I have it in there wrong.

Private Sub CommandButton1_Click()


With ActiveSheet
.Unprotect Password:=""




Range("F1") = TextBox1.Text
Range("H1") = TextBox2.Text
Range("N1") = TextBox3.Text
Range("M2") = TextBox4.Text
Range("AA1") = TextBox5.Text
Range("AA2") = TextBox6.Text
Range("AC2") = TextBox7.Text


With ActiveSheet
.Protect Password:=""
End With


End Sub

 

[Fluff]

You have an extra with statement that you don't need

Private Sub CommandButton1_Click()


With ActiveSheet
   .Unprotect Password:=""
   .Range("F1") = TextBox1.Text
   .Range("H1") = textbox2.Text
   .Range("N1") = textbox3.Text
   .Range("M2") = TextBox4.Text
   .Range("AA1") = TextBox5.Text
   .Range("AA2") = TextBox6.Text
   .Range("AC2") = TextBox7.Text
   
   .Protect Password:=""
End With


End Sub

 

[bamaisgreat]

Thanks again

 

[Fluff]

Your welcome