Assiging value to range through input box
 

hi

I want to know how to assign value to range through input box in the
following query instead of declaring the range in the query itself.

Sub sumbolded()
For Each c In Range("b1:b22")
If c.Font.Bold = True Then ms = ms + c
Next c
MsgBox ms
End Sub

Thanks In Advance!!!

Regards,

Karthik