Thread: Trying to improving existing code (portion of)
View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Brad Vontur[_2_] Brad Vontur[_2_] is offline
external usenet poster
  
Posts: 16
Default Trying to improving existing code (portion of)
This should be a little better

Dim strVal As Strin

strVal = TextBox3.Tex
If TextBox4.Text < "" Then strVal = strVal & vbLf & TextBox4.Tex
If TextBox5.Text < "" Then strVal = strVal & vbLf & TextBox5.Tex
If TextBox6.Text < "" Then strVal = strVal & vbLf & TextBox6.Tex

ActiveCell.Value = strVa

-Brad Vontur
Reply With QuoteReply With Quote