Insert Code

[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??


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...l-new/200510/1

[Max]

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
--
Rgds
Max
xl 97
---
Singapore, GMT+8
xdemechanik
http://savefile.com/projects/236895
--
"Derek Y via OfficeKB.com" <u13919@uwe> wrote in message
news:55f2dcfb20573@uwe...
> 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??
>
>
> --
> Message posted via OfficeKB.com
> http://www.officekb.com/Uwe/Forums.a...l-new/200510/1

[Derek Y via OfficeKB.com]

THANK YOU SOOO MUCH, i didn't have SUB and END SUB that was my problem........
thanks sooo very much!

Max wrote:
>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
>--
>Rgds
>Max
>xl 97
>---
>Singapore, GMT+8
>xdemechanik
>http://savefile.com/projects/236895
>--
>> I have some VBA code that I would like to insert into an excel worksheet
>>
>[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??


--
Message posted via http://www.officekb.com

[Max]

Glad you found out what was missing <g> !
--
Rgds
Max
xl 97
---
Singapore, GMT+8
xdemechanik
http://savefile.com/projects/236895
--
"Derek Y via OfficeKB.com" <u13919@uwe> wrote in message
news:55f3ad2e0b6f3@uwe...
> THANK YOU SOOO MUCH, i didn't have SUB and END SUB that was my
problem........
> thanks sooo very much!