in the example I posted.. if the lenght of the cell is less than 10 numbers a zero will be added

anyway.. try this:


Dim f As String
f = objDepReqSheet.Cells(1,2).Text

worked in my test