Ive managed to crack this :) just at the last hurdle now of creating
the emails,

ive got the code to open a new mail message and output the email
addresses in the to:, but when the email saves to the desktop and the
process is done again, it seems that the 2nd mail message is
overwriting the 1st even thought its a different file name

Character_Length = Len(Cell_Contents)
Counter = Counter + Character_Length

If Counter 19000 Then

With oMailItem

.To = Output
.Subject = "Online Payslips Now Ready"
.Body = "[Message]"
.Save (SaveEmail)

End With

Counter = 0
Character_Length = 0
EmailCount = EmailCount + 1
Output = ""

this is the code to open new mail message and put addresses in, can
anyone help me?