Userform Textbox code for autofiltered worksheet?

[Big Lar]

If I could figure out the code, maybe I could eliminate Sheet2 from my project?<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
Sheet2 provides calculated column subtotals from AutoFiltered Sheet1.<o></o>
<o></o>
Currently, I use this:<o></o>
TextBox1.Value = (Format(Sheet2.Range("M16").Value + (Sheet2.Range("N16").Value), "$ #.00"))<o></o>
<o></o>
Where Sheet2<o></o>
M16 formula is =SUBTOTAL(9,Sheet1!T:T) and<o></o>
N16 formula is =SUBTOTAL(9,Sheet1!U:U)/4<o></o>
<o></o>
I struggle with the proper expressions to make this work.<o></o>
TextBox1.Value = (Format(Subtotal(9, Sheet1.Range("T:T").Value +(Subtotal(9,Sheet1.Range(“U:U”)/4.Value), "$ #.00"))<o></o>

 

[Domenic]

Try...

[font=Verdana]    [color=darkblue]Dim[/color] MyTotal [color=darkblue]As[/color] [color=darkblue]Double[/color]
    
    [color=darkblue]With[/color] Application.WorksheetFunction
        MyTotal = .Subtotal(9, Sheet1.Range("T:T")) + .Subtotal(9, Sheet1.Range("U:U")) / 4
    [color=darkblue]End[/color] [color=darkblue]With[/color]
        
    TextBox1.Value = Format(MyTotal, "$ #,###.00")
    [/font]

 

[Big Lar]

Thanks Domenic...
That worked perfectly!

 

[Domenic]

You're very welcome! Thanks for the feedback!