Email Last row to an email address in the last active cell

  • Thread starter Thread starter Carl Irving
  • Start date Start date
C

Carl Irving

How would i email the last row of a spreadsheet to whatever email address was
in the last cell of that last row, I have used Ron de Bruin's code to email
the last row to a pre defined email address, but this address will change on
a row by row basis and will be in a cell on that last row.

Thanks very much in anticipation of any answers I may get.
 
You can use something like this

Sub LastColumnInOneRow()
'Find the last used column in a Row: row 1 in this example
Dim LastCol As Integer
With ActiveSheet
LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
End With
MsgBox LastCol
End Sub
 
Back
Top