VBA - Remove quotes from any cell that contains them

[CC268]

I have a large spreadsheet of data that goes from Columns A to Columns AD and is about 2000 lines. The spreadsheet is created from some Access database (I am not familiar with the process). For some reason various cells end up with quotes at the beginning of the text in the cell (e.g. "USE PRIMER FOR TREATED SURFACES").

I have no idea why these quotes are being introduced, but I just want a simple VBA code that goes through this entire spreadsheet and removes any quote marks and maybe even removes unwanted spaces.

Thanks!

 

[mumps]

Try:

Sub RemoveQuotes()
    Application.ScreenUpdating = False
    ActiveSheet.Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, MatchCase:=False
    Application.ScreenUpdating = True
End Sub

 

[CC268]

Try:

Sub RemoveQuotes()
    Application.ScreenUpdating = False
    ActiveSheet.Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, MatchCase:=False
    Application.ScreenUpdating = True
End Sub

Great thanks!

 

[mumps]

You are very welcome