1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21:
detta kodifierar ska skapar namngiven spänner synligt i den kända chefen, det känt av spänna är uppsätta som mål, det ser liknande till vad du sade försökt dig men den fungerar för mig så ge det skjuten
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11:
Sub Macro1 () Dunkelt uppsätta som mål som spänner Spänna (ActiveCell, ActiveCell.End (xlDown)). Välj Uppsättningen uppsätta som mål = Application.Selection ActiveWorkbook.Names.Add namnger: = " uppsätta som mål ", RefersTo: =target ActiveWorkbook.Names (”uppsätta som mål”). Kommentar = "", Avsluta suben