Macro sending e-mails

[verluc]

I have a sheet with in column A my e-mail adresses.
With my macro I can send an attachment to all these e-mail adresses,with one touch on a button.
Now a must make an input of the range.
Can somebody change my macro,so that automaticly the range is : A5 to the last row that is filled with an e-mail adresses.
Piece of my macro:
Dim olApp As Object, olMail As Object
Dim rngeAddresses As Range, rngeCell As Range
Set olApp = CreateObject
"Outlook.Application")
Set rngeAddresses = Application.InputBox(prompt:="Give the range of your e-mail adresses."
For Each rngeCell In rngeAddresses.Cells

Many thanks.

[brettvba]

do you want to be able to selet the range yourself or a set range?

[verluc]

On 2002-04-28 14:47, brettvba wrote:
do you want to be able to selet the range yourself or a set range?

I want that the macro automatckly set the range from A5 to the laste row of column A
(I must have the possibility to add adresses without to change the range)

[brettvba]

this is what you want to select the range from a5 downwards

Range("A5").Select
Range(Selection, Selection.End(xlDown)).Select
seletion = rngeaddresses