Díky za reakce, vyřešeno, hodil sem tu kontrolu jako podmíněné formátování a hodil sem uvozovky před a za výsledek a už to běží :)
ovšem mám ještě malinký problém s VBA kde se snažím nastavit odesílání emailů pomocí CDO ale nefunguje mi to, hlásí mi to runtime error přitom na druhém pc to jde, nesetkal se stím někdo?

Tady je kód:
Sub SendGMail()

' Object creation
Set objMessage = CreateObject("CDO.Message")
Set msgConf = CreateObject("CDO.Configuration")

' Server Configuration
msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sen dusing") = 2
msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smt pserver") = "smtp.gmail.com"
msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smt pserverport") = 465
msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smt pauthenticate") = 1
msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sen dusername") = "frantag@gmail.com"
msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sen dpassword") = "Heslo123"
msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smt pusessl") = 1
msgConf.Fields.Update

' Email
objMsg.To = "franta@hallo.cz"
objMsg.From = "baleni@gmail.com"
objMsg.Subject = "Test send with Gmail account"
objMsg.HTMLBody = "Fili, balení tě postrádá."
objMsg.Sender = "Packing"

Set objMsg.Configuration = msgConf

' Send
objMsg.Send

' Clear
Set objMsg = Nothing
Set msgConf = Nothing

End Sub

Tady je hláška: https://postimg.cc/image/y38isz1s1/