sub M_snb()
  sn=sheets(1).usedrange.columns(3)

  with createobject("scripting.dictionary")
    for j=1 to ubound(sn)
      if sn(j,1)<>"" then x0=.item(sn(j,1))
    next

    for each it in .keys
      sheets.add.name=it
    next
  end with
End Sub