<div>
Hello BBlu,<br />
<br />
SImple enough when you see it ... cell instead of activecell. &nbsp;You aren't actually selecting the cell which is good therefore you need to reference 'cell'<br />
<br />
Regards,<br />
<br />
chris_bottomley<br />

<pre><code id="code-469973">Sub AddOne()
Dim n As Integer
Dim RanngeToAdd As Range
n = 1
Set RangeToAdd = ActiveSheet.Range(&quot;e1:e10&quot;)
For Each Cell In RangeToAdd
Cell.Value = n
n = n + 1
Next
End Sub
</code></pre>
</div>


Hello BBlu,

SImple enough when you see it ... cell instead of activecell.  You aren't actually selecting the cell which is good therefore you need to reference 'cell'

Regards,

chris_bottomley


Sub AddOne()
Dim n As Integer
Dim RanngeToAdd As Range
n = 1
Set RangeToAdd = ActiveSheet.Range("e1:e10")
For Each Cell In RangeToAdd
Cell.Value = n
n = n + 1
Next
End Sub


<div>
Oh....LOL.<br />
Got it! &nbsp;<br />
Thanks, Chris.<br />
<br />
I'm new to VBA, but having fun learning it!
</div>


Oh....LOL.
Got it!  
Thanks, Chris.

I'm new to VBA, but having fun learning it!

<div>
We all start sometime so i'm glad to help a little bit<br />
<br />
Chris
</div>


We all start sometime so i'm glad to help a little bit

Chris

<div>
<div class="content wysiwyg-content">
I'm new to VBA and have the attached code. &nbsp;Can someone tell me what i'm doing wrong? &nbsp;I'm trying to fill in cells D1-D10 with the numbers 1 through 10.<br />

<pre><code id="code-469971">Sub AddOne()
Dim n As Integer
Dim RanngeToAdd As Range
n = 1
Set RangeToAdd = ActiveSheet.Range(&quot;e1:e10&quot;)
For Each Cell In RangeToAdd
ActiveCell.Value = n
n = n + 1
Next
End Sub
</code></pre>
</div>
</div>


I'm new to VBA and have the attached code.  Can someone tell me what i'm doing wrong?  I'm trying to fill in cells D1-D10 with the numbers 1 through 10.

VBA For Loop not working

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

SQL (Structured Query Language) is designed to be used in conjunction with relational database products as of a means of working with sets of data. SQL consists of data definition, data manipulation, and procedural elements. Its scope includes data insert, query, update and delete, schema creation and modification, and data access control.