You could use a UDF (demo one below). Add this to a standard module, then in
the cell you wish to show the total use (example sums B1:F1)

= TotalMe(B1:F1)


Function TotalMe(rng As Range) As String
If Not rng Is Nothing Then
TotalMe = "This Total is: " & Application.WorksheetFunction.Sum(rng)
End If
End Function

--

Regards,
Nigel




wrote in message
...
Please help on

How can I put text and formula in a same cell i.e. This is total: ####
(sum of different cell)

Thanks