S
Syrus the Virus
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
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