Skip to content

Instantly share code, notes, and snippets.

@boldfacedesign
Created June 2, 2014 14:01
Show Gist options
  • Save boldfacedesign/163ed30c4a096fdd0d00 to your computer and use it in GitHub Desktop.
Save boldfacedesign/163ed30c4a096fdd0d00 to your computer and use it in GitHub Desktop.
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