I need to retun in ULTIMA (Dim as Long), the last blank cell in column B of FOGLiO1...
i use:
i use:
Code:
Sub latebinding(NOMEFILE)
Set XLAPP = CreateObject("Excel.Application")
Set XLWB = XLAPP.Workbooks.Open(Directory & NOMEFILE)
Set XLWS = XLWB.Worksheets("FOGLIO1")
End Sub