Hi, can someone please advise me on how to fix this macro, (the area marked in red). I want the name result from Cells(a,11) to be the file name then add the extension .xls

Thanks
Sam

Sub JoinA2D()
x = Sheets("QUOTES").Cells(Rows.Count, 2).End(xlUp).Row
For a = 385 To x
b = Cells(a, 4)
Cells(a, 11) = Cells(a, 7) & "-" & Cells(a, 3) & "-" & "00" & Cells(a, 1) & "-" & Format(Cells(a, 5), "ddmmyy") & "-" & Cells(a, 6)
Next a
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"Z:\Pumps_Division\CS&A Dept\Quotations Per Customer\" 'Cells(a, 11) & ".xls"

ActiveCell.Offset(2, -3).Range("A1").Select

End Sub