Save files to a Mapped Network Drive on server

You don't need chdir.
This is all you need (provided cells A1:A5 contain valid Workbooknames, including extensions.

Sub snb()
  for j=1 to 5
    thisworkbook.savecopyas "Z:\Individual_files\" & sheets("Lists").cells(j,1)
  next
end sub