Sub AddPrintersMenu()
Dim Printers() As String
Dim N As Long
    Printers = GetPrinterFullNames()
    With Sheets("inserimento")
        For N = LBound(Printers) To UBound(Printers)
            .Range("A100").Offset(N - 1, 0) =[COLOR=#ff0000] Replace(Printers(N), " on ", " su ")[/COLOR]
        Next N
        On Error Resume Next
        ThisWorkbook.Names("Printers").Delete
        On Error GoTo 0
        ThisWorkbook.Names.Add Name:="Printers", RefersTo:=.Range("A100:A" & 100 + N - 2)
    End With
End Sub