Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Excel Macro - Fill blank cells with GUID (VBA)
Sub fillBlankGUIDs()
For Each c In Selection
If IsEmpty(c.Value) Then c.Value = Mid$(CreateObject("Scriptlet.TypeLib").GUID, 2, 36)
Next
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.