A 15617-es írásodban az értékeknél szerepel a munkalap neve is. A for-next ilyesmi legyen - ismét próba nélkül:

 

dim szv as string, CV as range

 

for each CV in terület

if CV<>0 then szv=szv & "Munka1!" & CV.address & ","

next

ActiveChart.SeriesCollection(1).XValues = right(szv, len(szv)-1) ' az utolsó vessző levágása

 

Gavriel 15652-es válaszát kipróbáltad már?