Open Save as dialog and save it in One drive folder with predefined filename from cells

[09Tina]

Hi!
I have a problem with Save As dialog. I wrote a code that saves excel file with predefined name and path on Desktop, which works fine. When I change Path in code to One drive folder, Save As opens in that path but, name is not defined.

Dim Path As String
Dim filename As String

Path = "C:\Users\kkelek\Desktop\Skladište\L119"
filename = "KS_L119" & "_" & Range("A5") & "_" & Range("B5") & "_" & Range("C5")
If Target.Address = "$C$5" Then
    On Error Resume Next
    ActiveWorkbook.SaveAs filename:=Application.GetSaveAsFilename(InitialFileName:=filename, FileFilter:="Excel Files (*.xlsm), *.xlsm", Title:="Save As")
        If Err <> 0 Then Exit Sub
        On Error GoTo 0

This code works fine, but with this line in the code, it does not work.

Path = Environ("USERPROFILE") & "\One drive\Documents\KS"

Please help me someone! ?