I'm going to go ahead and solve my own problem.

[VBA]Dim xlapp As Object
Dim wk As Object
Dim xlSheet As Object
Dim sheetname
Dim r As Object


sheetname = "New Sheet Name"
Set xlapp = CreateObject("Excel.Application")


xlapp.Workbooks.Add
xlapp.Worksheets(1).Name = sheetname

xlapp.Visible = True
Set r = xlapp.Worksheets(sheetname).Range("A2:Z2")

With r
.Borders.Weight = 4
.Value = "Done!"
End With
[/VBA]

I'm guessing I had no replies either because I pasted all of my messy code instead of just the portion I was trying to solve or that this was so easy of a problem that no one bothered wasting keystrokes. Oh well at least its solved.