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
|