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