That works great, thanks very much

Suzie

"Dave Peterson" wrote:

I think I would have use Double.

Option Explicit
Sub fontsize(size As Double)
ActiveCell.Font.size = size
End Sub
Sub test()
Dim a As Double
a = InputBox("please enter fontsize")
Call fontsize(a)
End Sub

But your code worked ok in my simple tests.

What did you specify as a font size?

What happened when you tried it? What was the error?



Suzie wrote:

Hi,

Could anyone help me. I'm struggling with the following two routines that
allow the user to change the font size.

Sub fontsize(size As Byte)
ActiveCell.Font.size = size
End Sub

Sub test()
a = InputBox("please enter fontsize")
Call fontsize(a)
End Sub

It gives me an error but I think it should work. Is this a bug?

Thanks

Suzie

--

Dave Peterson