stevesohcot/vba-replace-single-quote.vba

Created July 27, 2021 14:46

Star (0) You must be signed in to star a gist
Fork (0) You must be signed in to fork a gist

Select an option

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/stevesohcot/43a77d00ab1784ed2d3766e2b586fb7d.js"></script>
Save stevesohcot/43a77d00ab1784ed2d3766e2b586fb7d to your computer and use it in GitHub Desktop.

Download ZIP

VBA Replace Single Quote

Raw

vba-replace-single-quote.vba

 Public Function ReplaceSingleQuote(str As String) As String
     If Len(Trim(str)) > 0 Then
         ReplaceSingleQuote = Replace(str, "'", "''")
     Else
         ReplaceSingleQuote = str
     End If
 End Function

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment