Crear Contador Automatico en Excel

Private Sub Workbook_Open()
 
respuesta = MsgBox("¿Desea autoincrementar?", vbYesNo)
 
If respuesta = vbYes Then
Range("B9").Value = Range("B9").Value + 1
End If
 
ThisWorkbook.Save
 
End Sub
Wandering Wolverine