Conctenate

  • Thread starter Thread starter scottnshelly
  • Start date Start date
S

scottnshelly

I have a simple little workbook. the code looks similar to:
Private Sub CommandButton1_Click()
ActiveWorkbook.Sheets("sheet1").Select
Range("IS65532").Select
ActiveCell.Value = TextBox1.Value
Range("IT65532").Select
ActiveCell.Value = TextBox2.Value
Range("IU65532").Select
ActiveCell.Value = TextBox3.Value
Range("IV65532").Select
ActiveCell.Value = TextBox4.Value
Range("A1").Select

Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurrFile As String

Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)


With olMail
.To = "(e-mail address removed)"
.CC = ComboBox1.Value
.Subject = TextBox2.Value
.Body = ActiveSheet.Range("it65536").Text & vbCrLf
.Display
End With

Set olMail = Nothing
Set olApp = Nothing

Unload Me

End Sub

then in IT65536 i have a concatenate for several different cells. Thi
worked great for about two weeks. now it seems like the concatenat
isn't concatenating anymore. when i erase and then re-type th
concatenate formula is works fine, but then stays the same when i eras
the other cells.
any suggestions?
thank
 
Check Tools/Options/Calculation and make sure that Automatic calculation
is selected.
 
Back
Top