Excel - 51 Awesome Macros: Save time and be more productive by Philippe A. Louis

Author:Philippe A. Louis [A. Louis, Philippe]
Language: eng
Format: azw3
Published: 2017-12-05T05:00:00+00:00

Sub Copy_Paste_Values()

iquestion = MsgBox("This macro will convert the content off all cells to values, continue?", vbYesNo)

If iquestion = vbYes Then

For i = 1 To Worksheets.Count

Worksheets(i).Select

If Worksheets(i).Visible = False Then

Worksheets(i).Visible = True

End If

Cells.Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues

Range("A1").Select

Next

End If

End Sub

Remove empty spaces inside the cell

The goal of this code is remove the empty spaces before and after the cells content’s, to run this routine, its necessary select a region and then run the macro.

Download

Copyright Disclaimer:
This site does not store any files on its server. We only index and link to content provided by other sites. Please contact the content providers to delete copyright contents if any and email us, we'll remove relevant links or contents immediately.