Question : Get sheet name

Hi: Can any one please tell me instead of direct use the name Sheet1. How to i get the name of the First worksheet.
Set xlWS = xlWb.Worksheets("Sheet1")

---------------------------------------------------------
Dim xlApp As Excel.Application
Dim xlWb As Excel.Workbook
Dim xlWS As Excel.Worksheet
Dim rngColumn As Excel.Range
Dim rngCell As Excel.Range
Dim ccount As Integer
Dim rcount As Integer
Dim xtr
Dim myvar As String

Set xlApp = New Excel.Application
Set xlWb = xlApp.Workbooks.Open(strSource)
Set xlWS = xlWb.Worksheets("Sheet1")

Answer : Get sheet name

xlApp.Worksheets(1).Name