vba error ambiguous name detected: RangetoHTML

Function RangetoHTML_SelectionChange(rng As Range)
Dim fso As Object
Dim ts As Object
Dim TempFile As String
Dim TempWB As Workbook

TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"

'Copy the range and create a new workbook to past the data in
rng.Copy
Set TempWB = Workbooks.Add(1)
With TempWB.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial xlPasteValues, , False, False
.Cells(1).PasteSpecial xlPasteFormats, , False, False
.Cells(1).Select
Application.CutCopyMode = False
On Error Resume Next
.DrawingObjects.Visible = True
.DrawingObjects.Delete
On Error GoTo 0
End With

'Publish the sheet to a htm file
With TempWB.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=TempFile, _
Sheet:=TempWB.Sheets(1).Name, _
Source:=TempWB.Sheets(1).UsedRange.Address, _
HtmlType:=xlHtmlStatic)
.Publish (True)
End With

'Read all data from the htm file into RangetoHTML
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
'testing out replacing RangetoHTML with M to resolve ambiguous compile error.
M = ts.readall
ts.Close
M = Replace(M, "align=center x:publishsource=", _
"align=left x:publishsource=")
RangetoHTML = M

'Close TempWB
TempWB.Close savechanges:=False

'Delete the htm file we used in this function
Kill TempFile

Set ts = Nothing
Set fso = Nothing
Set TempWB = Nothing
End Function

How can I resolve that issue? while still retaining the function RangetoHTML? is there a way to make the code the same way with changing the name of RangetoHMTL? Help much appreciated!

I Need both sets of them as each one creates an email for different recipients. I need the two email macros to retain their functionality yet I need to have one of the range functions renamed-- how can this be done?

I currently have the two sets of code separated under two different private sub command buttons'. If I delete the rangetohtml for the second macro -- how will it know to create the email with the chart in the range?

In post#2, the function declaration is strange:

Please Login or Register  to view this content.

However, the result is assigned to RangetoHTML:

Please Login or Register  to view this content.

Artik

Below is the final code. I was blocked by my company internal site from uploading the document I created as a sample.
This code is the first email 'review email' I am trying to replicate for another final email macro. the final macro looks the same apart from the 'To' and 'Subject'. My question is: how can I have correct the code to use the function RangetoHTML without the ambiguous error?
I am not allowed to also paste code into the message thread unless i break up the code. So I am breaking up the second part of the code [the rangetohtml function] from the first part of the create email code in order to post it on this website.