Try this....
Create a named range that includes all of the cells that you want to limit to 15 characters. For the code example below I used a named range: "Limit15"
Then, in the "ThisWorkbook" object code window use the "Workbook_SheetChange" event to check the length of the data entered...
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim rngLimit As Range
Set rngLimit = Range("Limit15")
Dim rng As Range
For Each rng In Target
If Not Intersect(rng, rngLimit) Is Nothing Then
If Len(rng) > 15 Then
MsgBox "Can't be more than 15 characters...", vbCritical, "Text too long!"
rng = Left(rng, 15)
End If
End If
Next
End Sub