How to add the name of the file

[safisam]

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

[NBVC]

Please do not add a new thread to fix title..just edit your last thread by editing your post and click Go Advanced...then amend title....

Also...

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here