Insert Code

  • Thread starter Thread starter Derek Y via OfficeKB.com
  • Start date Start date
D

Derek Y via OfficeKB.com

I have some VBA code that I would like to insert into an excel worksheet

With ActiveCell.Columns
.EntireColumn.Copy
.EntireColumn.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

End With
Application.CutCopyMode = False

I thought all I would have to do is create a macro, use the macro editor and
paste in this code instead and run that macro, and this code would run
instead.....Thats not working.......how do i run this code??
 
Try this ..

Press Alt+F11 to go to VBE
Click Insert > Module
Paste the sub* below in the code window
*containing your code

Press Alt+Q to get back to Excel

Test it out on a column with some formulas in your test sheet:
Select any cell in the col, press Alt+F8,
select "FreezeColumn" > Run
(The code will perform an "in-place"
copy > paste special > values on the col,
effectively killing all formulas in the col)

Sub FreezeColumn()
With ActiveCell.Columns
.EntireColumn.Copy
.EntireColumn.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
Application.CutCopyMode = False
End Sub
 
THANK YOU SOOO MUCH, i didn't have SUB and END SUB that was my problem........
thanks sooo very much!
Try this ..

Press Alt+F11 to go to VBE
Click Insert > Module
Paste the sub* below in the code window
*containing your code

Press Alt+Q to get back to Excel

Test it out on a column with some formulas in your test sheet:
Select any cell in the col, press Alt+F8,
select "FreezeColumn" > Run
(The code will perform an "in-place"
copy > paste special > values on the col,
effectively killing all formulas in the col)

Sub FreezeColumn()
With ActiveCell.Columns
.EntireColumn.Copy
.EntireColumn.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
Application.CutCopyMode = False
End Sub

--
I have some VBA code that I would like to insert into an excel worksheet
Click to expand...
[quoted text clipped - 10 lines]
paste in this code instead and run that macro, and this code would run
instead.....Thats not working.......how do i run this code??
Click to expand...
Click to expand...
 
Back
Top