set worksheet in range

[ummjay]

hey guys,
how can i set an entire worksheet into a range?

I tried this, but it's not working:

For i = 3 To Worksheets.Count
Set wksTemp = Worksheets(i)
With wksTemp
setMSG2 = wksTemp.UsedRange
.HTMLBody = strMSG & strMSG2

maybe i need to set setMSG2 as something else? Or maybe it's the way i'm trying to display on .HTMLBody? I'm not getting an erorr, its just not showing anything. Everything else in my code works fine, this is just a piece.

 

[ummjay]

i also tried:

For i = 3 To Worksheets.Count
        Set wksTemp = Worksheets(i)
        With wksTemp
        
        Set rng = .Range("B2")
        strMSG = Sheets("RUN").Range("B8").Value
        strSUBJ = Sheets("RUN").Range("B6").Value
        'page range
        lr = Cells(Rows.Count, "B").End(xlUp).Row
        lc = Cells(1, Columns.Count).End(xlToLeft).Column
        strMSG2 = Range("A1").Resize(lr, lc)

it's not liking my lr or lc. any ideas?