here is the Macro I recorded

Sub JobRecap()
'
' JobRecap Macro
' Macro recorded 3/11/2007 by FaroTemplate
'

'
Range("J5").Select
Selection.Copy
ActiveWindow.WindowState = xlMinimized
Application.WindowState = xlMinimized
Range("A2").Select
ActiveSheet.Paste
ActiveWindow.WindowState = xlNormal
Windows("macro test.xls").Activate
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlMaximized
Windows("JOB RECAP.xls").Activate
Windows("macro test.xls").Activate
Range("J7").Select
Application.CutCopyMode = False
Selection.Copy
Windows("JOB RECAP.xls").Activate
Range("B2").Select
ActiveSheet.Paste
Windows("macro test.xls").Activate
ActiveWindow.SmallScroll Down:=9
Range("B43").Select
Application.CutCopyMode = False
Selection.Copy
Windows("JOB RECAP.xls").Activate
ActiveSheet.Paste
Range("C2").Select
Windows("macro test.xls").Activate
Range("B41").Select
Application.CutCopyMode = False
Selection.Copy
Windows("JOB RECAP.xls").Activate
ActiveSheet.Paste
Range("D2").Select
Windows("macro test.xls").Activate
ActiveWindow.SmallScroll Down:=18
Range("B59").Select
Application.CutCopyMode = False
Selection.Copy
Windows("JOB RECAP.xls").Activate
ActiveSheet.Paste
Range("E2").Select
Windows("macro test.xls").Activate
Range("B39").Select
Application.CutCopyMode = False
Selection.Copy
Windows("JOB RECAP.xls").Activate
ActiveSheet.Paste
Columns("A:A").ColumnWidth = 20.86
Columns("B:B").ColumnWidth = 22.14
Columns("C:C").ColumnWidth = 24.29
Columns("D:D").ColumnWidth = 24.86
Columns("E:E").ColumnWidth = 34.86
Windows("macro test.xls").Activate
End Sub

I need it to be modified to be a general macro. It should contain a message
box asking for the job name.

Thanks for the help.

Steve

"Joel" wrote:

The steps you have specified require a custom macro. The best way for a
beginer to accomplish this task is through a learn macro. Then post the
learrn macro on this site to get help in modifying it to be a general macro
that can be used over and over again. Usually learned macros will work for
only one of your jobs but not for all jobs.

Follow these steps.
1) Create a new Quote workbook and save the file under job name so nothing
gets lost.
2) Make sure Job recap workbook is closed.
3) Start a learn Macro. To do this go to the Tools Menu and select Macros
and then
select Record new Macro.
4) Add all the job name information to the Job recap workbook.
5) stop Recording Macro. Again go to the Tools Menu and seclect Macro -
stop Recording.
6) Now copy the macro. On the Tab at bottom of worksheet with worksheet
name right click and select view code. In the VBAProjectt window under
module there will be a module with code. The 1st line of the code (which is
a subroutine or macro) will start with SUB and the last line of the code will
had END SUB. Copy all the code and paste it into a Posting at this wqebsite.
Ask for it to be modified to be modified to be a general macro.

The general macro should contain a Message box asking for the Job name. The
job name should be part of the XLS filename so the file can be found.


If you have any questions or need additional info I will be glad to assist.
Just reply to this posting.




"S Willingham" wrote:

I am using Excel 2003 and I have a lot to learn.

I have two workbooks. One is a QUOTE WORKBOOK and on is a JOB RECAP. The
QUOTE WORKBOOK is used to quote and process jobs. It contains a series of
worksheets. Once the information about the specific job is entered it is
saved as the €œjob name€�. The JOB RECAP is a running total of the jobs sold.

I would like to automate the process. I would like to add a cell on the
QUOTE WORKBOOK so that when I enter €œActive€� it will €œsend€� info to the JOB
RECAP sheet like €œJob name€�, €œInvoice amount€�, etc.

Is this possible? If so How?

Thanks in Advance.

Steve