"I want the last macro to name the file the value of cell B2 (which is
the word "Subject") and B3 (which is a number, like 105), than save as
xls to the default excel location, then close it."

First search your module(s) for ".copy" and/or ".move" without the
quotes. If you find anything, there's why you're getting just one
sheet.

If you just want what I've quoted above and you cleared up the
copy/move deal, just eliminate the "ThisWorkbook" part from the lines
you've posted.

Sub SaveAs()

Dim uname

With ActiveWorkbook.Worksheets("sheet1")
uname = .Range("B2").Value & " " & _
.Range("B3").Value
End With

With ActiveWorkbook
.SaveAs uname & ".xls"
.Close True
End With

End Sub