Hi,

I'm not the best programmer in the world and I'm in need of help. I wa
trying to make a loop

Sub macro2()
Dim Nummer As String

Worksheets("Sheet1").Activate
Do Until Nummer 0
Nummer = Application.InputBox("Doe eens een nummer"
"Selecteren", Type:=2)
Exit Do
Loop
Range("B12").Select
With Selection.Font
.Name = "Arial"
.Size = Nummer
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

End Sub


But it did not work. I tried to check the input but it failed. And ho
do I set borders (input between 10 and 30 (for example)

Tnxs in advanced

--
Message posted from http://www.ExcelForum.com