Code
Public Function naam(celnaam As Range)
Dim ftitel As String
Dim fvoorn As String
Dim fnaam As String
Dim fbijn As String
Dim ftrscr As String
ftitel = Offset(celnaam, 0, 1) & " "
fvoorn = propercase(Offset(celnaam, 0, 2)) & " "
fnaam = UCase(Offset(celnaam, 0, 4)) & " "
fbijn = " '" & Offset(celnaam, 0, 3) & "' "
ftrscr = "[ " & Offset(celnaam, 0, 5) & " ] "
If Offset(celnaam, 0, 5) <> 0 Then
naam = ftitel & fvoorn & fbijn & fnaam
Else
naam = ftitel & fvoorn & fbijn & fnaam & ftrscr
End If
End FunctionHello 
I am trying to make a function to turn first name, last name, title, ... into one "name" function...
(trscr = needed if the name is for.ex. in arab to write the transcription.
it gives me a name? error...
thank you for your help !!!