Você pode usar essa macro. Ele passará por todas as planilhas nomeadas delivery
e colocará uma fórmula em A1
que terá um número F
diferente para cada entrega. Então
Folha Delivery 1
A1
terá uma fórmula ='Booking Sheet'F1
Folha Delivery 2
A1
terá fórmula = Booking Sheet'F2
e assim por diante
Sub EnterFormulas()
Dim ws As Worksheet
For Each ws In Sheets
If InStr(1, ws.Name, "Delivery", vbTextCompare) Then
ws.Range("A1").Formula = "='Booking Sheet'!F" & Split(ws.Name, Chr(32))(1)
End If
Next
End Sub