I have a macro for word as per the following. My question is, does anyone know how I would implement this into my excel file to use the same numbering system as the word files. Would a different Macro be needed for excel than the below or is it even possible? THANKS SO MUCH IN ANTICIPATION!
Sub AutoRef()
Order = System.PrivateProfileString("T:\Storage_Area\M\MacroSettings\Settings.txt", _
"MacroSettings", "Order")
If Order = "" Then
Order = 1
Else
Order = Order + 1
End If
System.PrivateProfileString("T:\Storage_Area\M\MacroSettings\Settings.txt", "MacroSettings", _
"Order") = Order
ActiveDocument.Bookmarks("Order").Range.InsertBefore Format(Order, "00#")
ActiveDocument.SaveAs FileName:="T:\Storage_Area\NEW_DOCS\SDL-LET-" & Format(Order, "00#")
End Sub
Bookmarks