Nyt ark til os

        MsgBox ("Lagerstatus for lav for " & lagerString)
        Worksheets.Add after:=Sheets(Sheets.count)
        Cells(1, 1).Value = "En kunde har forsøgt at købe disse varer:"
        Cells(2, 1).Select
        ActiveCell.FormulaR1C1 = lagerString
        Cells(3, 1).Value = "Bestil disse varer hjem."
        Cells(4, 1).Value = "Mængde vi har på lager er:"
        Cells(5, 1).Value = "Sofa"
        Cells(6, 1).Value = GetLagerCount("sofaer")
        Cells(5, 2).Value = "Stole"
        Cells(6, 2).Value = GetLagerCount("stole")
        Cells(5, 3).Value = "Borde"
        Cells(6, 3).Value = GetLagerCount("borde")
        Cells(5, 4).Value = "Bænke"
        Cells(6, 4).Value = GetLagerCount("bænke")
        Cells(5, 5).Value = "Reoler"
        Cells(6, 5).Value = GetLagerCount("reoler")
        Sheets("InputArk").Activate