work with sheet hided.... (2000 sr 1)

[sal21]

Please test and correct this part of code because go in error!!!;-(
In effect i want use the range in sheet TEMPLATE witouth open it...

Dim WS As Worksheet

Set WS = Worksheets("TEMPLATE")

With WS
ULTIMA = Worksheets("TEMPLATE").Cells(Rows.COUNT, "A").End(xlUp).Row '+ 1
Sheets("TEMPLATE").Range("A1:N" & ULTIMA).Select
End With

[HansV]

You use

With WS

End With

but you don't do anything with WS in between.

You cannot select cells on a sheet that is not the active sheet. Instead, do something with the range.

[sal21]

... Ok solved first part, but i want to copy this range, please correct line...
Set RNG_TEMPLATE = WS.Range("A1:N" & ULTIMA).Selection.Copy

attached complete code

[HansV]

That line doesn't make sense. Please explain what you want to do. It is not clear from the code you posted, for you don't do anything with RNG_TEMPLATE or with Source.

[sal21]

i want to copy from a hided sheet TEMPLATE the range WS.Range("A1:N" & ULTIMA) and use in Set Source = RNG_TEMPLATE for pasting in email with RangetoHTML

[HansV]

Where is the variable Source defined?

You don't use the variable Source in RangeToHTML.

Perhaps you should ask this to the person you got this code from.