VBA to assign "id number" into all files in folder?

[Rookeby7]

Hi all,
I am new to VBA but am learning, and have had some very useful help on here previously, I think what I am looking to do should be possible, but am not sure where to start.

I have a batch of 600 files in a folder and need to assign a id/reference number (starting at #1261 ) in to cell B4 in each

In my head this seems like it should be straightforward, but I can't figure it out and don't seem to be using the right terminology to find previous questions relating to similar.

I hope someone will be able to help, thanks in advance

 

[trunten]

this should work:

Sub addID()
    Dim path As String, idLoc As String, fn As String
    Dim id As Long, idStart As Long
    
    path = "C:\MyPath" '<--Change this
    
    idStart = 1261
    idLoc = "$B$4"
    
    If Right(path, 1) <> "\" Then path = path & "\"
    id = idStart
    fn = Dir(path & "*.xls*")
    Application.ScreenUpdating = False
    While LenB(fn)
        With Workbooks.Open(fn)
            .Sheets(1).Range(idLoc).Value = id
            .Close True
        End With
        id = id + 1
        fn = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub

 

[Rookeby7]

Thanks very much - will try it monday