Thread: [Solved] Run Code when Workbook opens
View Single Post
 
Old 07-10-2012, 05:39 AM
gbaker gbaker is offline Windows 7 32bit Office 2010 32bit
Competent Performer
  
Join Date: May 2012
Posts: 111
gbaker is on a distinguished road
Default Run Code when Workbook opens
How do I set up code so that when my workbook opens is automatically runs it. I tried to put the code into ThisWorkbook but it doesn't work.
Thanks in advance for your help!!!
GWB

Code:
Sub pvalue()
'
' pvalue Macro
'
'
Workbooks(1).Activate

    Sheets("PRINT VIEWING CALENDAR").Select
    Sheets("PRINT data").Visible = True
    ActiveWindow.ScrollColumn = 4
    Columns("E:CA").Select
    Selection.Copy
    Sheets("PRINT VIEWING CALENDAR").Select
    Columns("E:CA").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("PRINT data").Select
    ActiveWindow.SelectedSheets.Visible = False
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 2
    Range("D1").Select
End Sub
Reply With Quote