Form limitation
 

in excel, i've written a macro so that I can select ranges of fields
and increase the value in each cell by a set amount that I specify.
The problem, is that I want to select many sets of ranges. I can selec
somewhere around 15 or so, but past that if I try to hold control an
select another set, it unselects all the others, and acts kinda funny.
Is there something I could do to allow me to select more ranges?
here's my macro code:

Sub addit()
Dim myvar As Variant
Dim myrange As Range

myvar = Application.InputBox("Enter A value to add", Type:=3)
Set myrange = Application.InputBox("Select a Range to add it to"
Type:=8)

For Each cell In myrange.Cells
If Len(cell.Value) = 0 Then
cell.Value = cell.Value
ElseIf IsNumeric(cell.Value) = True Then _
cell.Value = cell.Value + myvar
End If
Next cell

End Su

--
Message posted from http://www.ExcelForum.com

Form limitation
 

That is probably because the the string of addresses returned exceeds 255
characters. If you need to select more than around 15, you will have to do
it in separate steps.

--
Regards,
Tom Ogilvy

"rsustudent " wrote in message
...
in excel, i've written a macro so that I can select ranges of fields,
and increase the value in each cell by a set amount that I specify.
The problem, is that I want to select many sets of ranges. I can select
somewhere around 15 or so, but past that if I try to hold control and
select another set, it unselects all the others, and acts kinda funny.
Is there something I could do to allow me to select more ranges?
here's my macro code:

Sub addit()
Dim myvar As Variant
Dim myrange As Range

myvar = Application.InputBox("Enter A value to add", Type:=3)
Set myrange = Application.InputBox("Select a Range to add it to",
Type:=8)

For Each cell In myrange.Cells
If Len(cell.Value) = 0 Then
cell.Value = cell.Value
ElseIf IsNumeric(cell.Value) = True Then _
cell.Value = cell.Value + myvar
End If
Next cell

End Sub


---
Message posted from http://www.ExcelForum.com/

Form limitation
 

So there's no workaround? damn.
Guess I'd better get to work then.
Yuck.
-

--
Message posted from http://www.ExcelForum.com