I need to be able to pass a worksheet in a workbook into different functions. It will all live one workbook. There will be no other work book. I am also trying to loop though the column heading from a SQL dataset using the offset method from the range class. I have passed the workbook and the worksheet.

Dim rng As Excel.Range = CType(activeSheet.Cells(1, 1), Excel.Range)  

With objBook
Dim columnName1 As String
            columnCount = ds.Tables(0).Columns.Count
For x = 0 To columnCount - 1    'populates column heading  by incremanting though the letter heading
                columnName1 = ds.Tables(0).Columns.Item(x).ColumnName
                 rng.Offset(r, c).Value = columnName1

                r += 1
End With