Kindly try this solution:
1. Create a new Excel WorkBook
2. Goto A1, type
ID:
3. Save the workbook (any filename you want, make sure the file supports macros, else it won't work)
4. Press Alt+F11
5. When VBA IDE is loaded, double-click "
ThisWorkbook"
6. On the
(General) drop-down listbox, select Workbook
7. Type the code below:
Code:
Application.Goto ActiveWorkbook.Sheets("Sheet1").Cells(1, 2)
If IsEmpty(ActiveCell.Value) Then
ActiveCell.Value = 1
Else
ActiveCell.Value = ActiveCell.Value + 1
End If
8. Save the code, close the VBA editor.
9. Save the Excel Workbook again, then close the whole Excel Workbook
10. Open Excel Workbook, enable Macros if you are asked to.
Let me know what you think.
Resources | Reference:
How to select cells/ranges by using Visual Basic procedures in Excel