textbox help

[hail11]

i am using this code

Private Sub UserForm_Activate()
TextBox1 = Sheets("Sheet1").Range("a1")
TextBox2 = Sheets("Sheet1").Range("a2")
End Sub

however i need the first one to show as a dollar amount and the second one to show as a percent how do i do this?

 

[jindon]

If the both cells are showing how you want to show in the text box then

With Sheets("Sheet1")
     TextBox1.Value = .Range("a1").Text
     TextBox2.Value = .Range("a2").Text
End With

 

[hsk]

checkout --- http://www.mrexcel.com/archive/Links/1989.html