Free Microsoft Excel 2013
Quick Reference
Free Microsoft 2013 Quick Reference Guide

Free Microsoft Excel 2013 Quick Reference

Creating macro to save a backup copy of the same file in a shared drive

I am running Microst Excel 2003 through Microsoft Front Page as I need to update to my website. I am using a shared network so my colleagues can also upload their web pages.

I want to run Excel through Front Page (web server) and AFTER I save the workbook I want to run a macro which saves the same file in a 'shared drive'.

Any ideas what code to use? And why does excel not remember this macro each time the excel file is opened through front page?

Thanks


Post your answer or comment

comments powered by Disqus
I have a range already set up with my save path name, I want to create a
macro that will save a backup copy of the workbook that I am working in. Any
ideas how?

Thanks for any help

j

Hi,

I am currently having an issue with VB saving a backup copy of the file i open. I originally had this setup to save a backup copy of my excel file in the same folder as the original file, but I found out that it is saving the file to different locations. it looks like it saves it to the last folder that i was browsing in excel to open another file.
Is there any way to fix this issue?
Any help is greatly appreciated.

Below is the coding that i use.

Private Sub Workbook_Open()

Dim MyBackupPath As String
MyBackupPath = "DO NOT OPEN -"
ActiveWorkbook.SaveCopyAs MyBackupPath & " " & ActiveWorkbook.Name

End Sub

auto save a backup copy of a workbook with the original Sheet.
I am using Excel 2003 version

How can we back up an excel file in our hard disk without using SAVE AS
command in our hard disk each time we close the file.
I want to have a update copy of the excel file on my hard disk without
others know that this file is being backuped up some where in the hard disk
while closing it.

THANK YOU

Hi,

I'd like to have a macro run when an excel file is opened. It should create a back-up of the same file and save it in the same directory with different name so it can be differentiated as a backup.

I can find macros that do similar things, but usually when a file is saved, not opened...Any suggestions?

We have a shared worksheet that many people access and make changes to.
Every time someone saves the file, Excel creates a backup copy of the file in
the folder. How do I shut that feature off?

I want to save a backup copy of my personal workbook on my flash drive which
is inserted into my computer. I did a search on my computer and could not
find personal.xls or personal workbook.xls. I can of course save it but how
can I save a copy of it?

tia,

I am trying to make a backup copy of my microsoft programs because I have
lost my discs. I can't seem to find a way to do that and the programs are on
my laptop which my kids use, so I need a backup just in case.

Is there a way to save a backup copy od xl2k workbook in a DIFFERENT folder
than the original? With mutliple workbooks folder becomes too cluttered.

Thx

Hey, All.

I had the same question as the individual on this link:

http://www.excelforum.com/archive/in.../t-226280.html

The macro in the post creates the CSV file, but it doesn't update the CSV file automatically when the base XLS file is updated. It doesn't even update the CSV file with the XLS updates when I run the macro manually.

Any thoughts?

Again, MY GOAL is to make a macro that automatically saves a copy of the XLS document in CSV format and updates the CSV document whenever the XLS one is saved.

Thanks in advance!!!
Trey

I share files through a network drive and would like to make a macro button that will send a saved copy of the file from my local dirve to our shared network drive. My macro building skills are very basic and could use some help on this.

Hi,

I have an Excel table full of information for a certain number of
individuals. I've created a macro to reorganize, transpose, and arrange the
data that works beautifully for information for two individuals. However,
the number of individuals whose information is in the table will vary, so I
need to be able to set the macro to do these tasks regardless of the amount
of information. I imagine that I need to be able to set it to copy and paste
all the rows for one name, then all the rows for the second name, so on,
until there is a blank cell (indicating that all of the information has been
manipulated and the macro can stop).

Any ideas about how to do this would be great, as well as resources for more
information. I've looked around but have found much specific to this issue.

I'm using Excel 2003 on Windows XP.

Thanks,

Matt

Hi,

I have an Excel table full of information for a certain number of
individuals. I've created a macro to reorganize, transpose, and arrange the
data that works beautifully for information for two individuals. However,
the number of individuals whose information is in the table will vary, so I
need to be able to set the macro to do these tasks regardless of the amount
of information. I imagine that I need to be able to set it to copy and paste
all the rows for one name, then all the rows for the second name, so on,
until there is a blank cell (indicating that all of the information has been
manipulated and the macro can stop).

Any ideas about how to do this would be great, as well as resources for more
information. I've looked around but have found much specific to this issue.

I'm using Excel 2003 on Windows XP.

Thanks,

Matt

Is there a way to retreive an original version of a file in Excel, as you can
in Word (Save a Backup copy option)?

thanks, Peggy

hi all,

I am looking for a macro which will create a user-specified number of copies of the same sheet.

It should work by right-clicking on the sheet, choosing the command from the right click menu and a input box appearing asking how many copies to make.

the sheets should be named with the original name followed by 1,2,3.. etc depending on the number of copies chosen.

if anyone can help it would be very appreciated.

thanks
andy

I have to save a specific range of data, including 1 empty cell on each row
in CSV format. This is to create an extra comma on the end of each record.
I have not been able to figure this out and would appreciate any help.

Hi all

I have a VBA issue that I would love some help with.

Ok.

I have an excel sheet which allows a user to input a path to a specific file which is then used to build a pivot table. There are three different sections. First the user selects where the input file is, then they select where they would like to save the output file and then the click 'GO' which runs the below code:


	VB:
	
 ' Description:  Executes when the user clicks the Go button.
 '               Checks if an input file has been specifed and if so opens it to a sheet.
 '               Calls other methods to create a summary pivot table and save the file.
 ' Parameters:   None
 ' Returns:      Nothing
 ' Author:       Rosalyn Ng
 ' Date:         17 May 2005
 ' Changes:      Andrew Foster - 15 March 2006.
 '               Added Sheet Protection
 ' ToDo:
 
Sub OpenFile_Click() 
    Sheets("Process Sheet").Unprotect 
     'Get file name of file to open
    Dim strOpenFilePath As String 
    strOpenFilePath = Range("InputFile").Value 
     
     'Get file name of output file
    Dim strOutputFilePath As String 
    strOutputFilePath = Range("OutputFile").Value 
     
     'Check output file name valid
    If (strOpenFilePath = "") Then 
        MsgBox ("No file specified") 
    Else 
        On Error Goto ErrorHandler 
         
         'Get just the file name
        Dim lngPos As Long 
        Dim strOpenFile As String 
        lngPos = InStrRev(strOpenFilePath, "") 
        strOpenFile = Right$(strOpenFilePath, Len(strOpenFilePath) - lngPos) 
         
         'Opens the .txt file and appends the correct column header.
        Call openAndFormatTxt(strOpenFilePath) 
         
         'Delete the last row
        Set rgLast = Range("A1").SpecialCells(xlCellTypeLastCell) 
        lLastRow = rgLast.Row 
        Rows(lLastRow).Select 
        Selection.ClearContents 
        Range("A1").Select 
         
         'Modify amounts for reversals
        Call ModifyAmountsForReversals 
         
         'Format Time column
        Call FormatTime 
         
         'Sort results by Date then time
        Call SortResults 
         
         'Create summary pivot table
        Call PivotTable(strOpenFilePath) 
         
         'Save output file
        If (strOutputFilePath = "") Then 
            MsgBox ("Unable to Save output, invalid output file name.") 
        Else 
            Call SaveOutput(strOutputFilePath) 
            Workbooks("ANZEftposMacro.xls").Activate 
            Sheets("Process Sheet").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 
            Exit Sub 
        End If 
         
    End If 
    Workbooks("ANZEftposMacro").Activate 
    Sheets("Process Sheet").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 
     
    Exit Sub 
     
ErrorHandler: 
    MsgBox ("Error opening file.  " + Err.Description) 
     
End Sub 
 
 ' Method name:  ModifyAmountsForReversals()
 ' Description:  Adds an extra column and recalucates the Amounts in cents.
 '               Amount will become negative if the transaction ID is zero (0).
 '               This recalculated value is copied to the original column
 ' Parameters:   None
 ' Author:       Rosalyn Ng
 ' Date:         17 May 2005
 ' Changes:      None
 ' ToDo:         None
Private Sub ModifyAmountsForReversals() 
     
     'Move to the temporary column
    Range("F1").Select 
    Selection.End(xlDown).Select 
    ActiveCell.Offset(0, 12).Select 
     
     'Create formula for recalculation and apply to temporary column
    ActiveCell.FormulaR1C1 = "=IF(RC[-2]=0, (RC[-12]*-1)/100, RC[-12]/100)" 
    ActiveCell.Copy 
    Range("R2", ActiveCell).Select 
    ActiveSheet.Paste 
     
     'Copy over new values to previous Amount column
    Selection.Copy 
    Range("F1").Select 
    Selection.End(xlDown).Select 
    Range("F2", ActiveCell).PasteSpecial Paste:=xlPasteValues 
    Application.CutCopyMode = False 
     
     'Remove Temporary column contents
    Columns("R:R").Select 
    Selection.ClearContents 
    Range("A1").Select 
     
     
     'Format Amount Column
    Columns("F:F").Select 
    Selection.NumberFormat = "$#,##0.00" 
     
End Sub 
 
 ' Method name:  FormatTime()
 ' Description:  Formats the Time field by appending ":" between the time components.
 '
 ' Parameters:   None
 ' Author:       Rosalyn Ng
 ' Date:         17 May 2005
 ' Changes:      None
 ' ToDo:         None
Private Sub FormatTime() 
     
     'Change format of temporary column
    Range("R:R").Select 
    Selection.NumberFormat = "h:mm:ss AM/PM" 
     
     'Move to the temporary column
    Range("F1").Select 
    Selection.End(xlDown).Select 
    ActiveCell.Offset(0, 12).Select 
     
     
     'Create formula for reformat and apply to temporary column
    ActiveCell.FormulaR1C1 = _ 
    "=if(LEN(RC[-14])=6 , Time(MID(RC[-14], 1, 2), MID(RC[-14], 3, 2), MID(RC[-14], 5, 2)), Time(MID(RC[-14], 1, 1),
MID(RC[-14], 2, 2), MID(RC[-14], 4, 2)))" 
     '"=IF(LEN(RC[-14])=6, CONCATENATE(MID(RC[-14], 1, 2), "":"", MID(RC[-14], 3, 2), "":"", MID(RC[-14], 5, 2)),
CONCATENATE(CONCATENATE(""0"",MID(RC[-14], 1, 1)), "":"", MID(RC[-14], 2, 2), "":"", MID(RC[-14], 4, 2)))"
     
    ActiveCell.Select 
    ActiveCell.Copy 
    Range("R2", ActiveCell).Select 
    ActiveSheet.Paste 
     
     'Copy over new values to previous Time column
    Selection.Copy 
    Range("D1").Select 
    Selection.End(xlDown).Select 
    Range("D2", ActiveCell).PasteSpecial Paste:=xlPasteValues 
    Application.CutCopyMode = False 
     
     'Remove Temporary column contents
    Columns("R:R").Select 
    Selection.ClearContents 
     
     'Change format of Time column
    Range("D:D").Select 
    Selection.NumberFormat = "h:mm:ss AM/PM" 
     
    Range("C1").Select 
     
End Sub 
 
 ' Method name:  SortResults()
 ' Description:  Sorts the results by date then time
 ' Parameters:   None
 ' Returns:      Nothing
 ' Author:       Rosalyn Ng
 ' Date:         17 May 2005
 ' Changes:      None
 ' ToDo:         None
Private Sub SortResults() 
    Cells.Select 
    Range("C1").Activate 
    Selection.CurrentRegion.Select 
    Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("D2") _ 
    , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ 
    False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _ 
    :=xlSortNormal 
     
    Range("C1").Select 
End Sub 
 
 
 ' Method name:  PivotTable()
 ' Description:  A pivot table is created using the given file source on another sheet
 '               summing the total cents against the date.
 ' Parameters:   file    the input file name
 ' Author:       Rosalyn Ng
 ' Date:         17 May 2005
 ' Changes:      None
 ' ToDo:         Double check column headers
 
Private Sub PivotTable(file As String) 
     
     'Displays a pivot table on a new sheet using the data from the text file.
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ 
    file + "!R1C1:R1000C16").CreatePivotTable TableDestination:="", TableName _ 
    :="PivotTable2", DefaultVersion:=xlPivotTableVersion10 
     
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1) 
    ActiveSheet.Cells(3, 1).Select 
    ActiveWorkbook.ShowPivotTableFieldList = True 
    With ActiveSheet.PivotTables("PivotTable2").PivotFields("Tran Date") 
        .Orientation = xlRowField 
        .Position = 1 
    End With 
     
    ActiveSheet.PivotTables("PivotTable2").AddDataField ActiveSheet.PivotTables( _ 
    "PivotTable2").PivotFields("Amount"), "Sum of Amount", xlSum 
     
    Application.CommandBars("PivotTable").Visible = False 
    ActiveWorkbook.ShowPivotTableFieldList = False 
     
     'Format cells
    Range("B5:B8").Select 
    Selection.NumberFormat = "$#,##0.00" 
    Columns("B:B").EntireColumn.AutoFit 
    Range("B9").Select 
     
End Sub 
 
 ' Method name:  SaveOutput()
 ' Description:  Saves the workbook to the specified file name.
 ' Parameters:   file    the filepath to save the workbook to.
 ' Returns:      Nothing
 ' Author:       Rosalyn Ng
 ' Date:         17 May 2005
 ' Changes:      None
 ' ToDo:         Double check column headers
 
Private Sub SaveOutput(file As String) 
    On Error Goto ErrorHandler 
    ActiveWorkbook.SaveAs Filename:=file, _ 
    FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ 
    ReadOnlyRecommended:=False, CreateBackup:=False 
     
    Exit Sub 
ErrorHandler: 
    If (Err.Number  1004) Then 
        MsgBox ("Error saving file.  " + CStr(Err.Number) + CStr(Err.Source) + Err.Description) 
    End If 
End Sub 
 
 ' Method name:  openAndFormatTxt()
 ' Description:  Opens the input text file and puts data into columns.
 '               Formats the sheet by adding relevant column headers,
 '               resizing some columns and hiding unnecessary columns.
 ' Parameters:   strOpenFile     the input file to open
 ' Author:       Rosalyn Ng
 ' Date:         17 May 2005
 ' Changes:      None
 ' ToDo:         None
Private Sub openAndFormatTxt(strOpenFile As String) 
     
     'Open input file
    Workbooks.OpenText Filename:=strOpenFile, Origin:=xlMSDOS, _ 
    StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(1, _ 
    1), Array(5, 5), Array(13, 1), Array(19, 1), Array(25, 1), Array(37, 1), Array(43, 2), Array _ 
    (53, 9), Array(56, 1), Array(62, 1), Array(67, 1), Array(74, 9), Array(80, 1), Array(92, 9), _ 
    Array(96, 1), Array(97, 9), Array(98, 1), Array(101, 2), Array(117, 9), Array(120, 1), _ 
    Array(128, 1)), TrailingMinusNumbers:=True 
     
     'Append column headers
    ActiveCell.FormulaR1C1 = "Rec ID" 
    Range("B1").Select 
    ActiveCell.FormulaR1C1 = "Message Type" 
    Range("C1").Select 
    ActiveCell.FormulaR1C1 = "Tran Date" 
    Range("D1").Select 
    ActiveCell.FormulaR1C1 = "Tran Time" 
    Range("E1").Select 
    ActiveCell.FormulaR1C1 = "Tran Code" 
    Range("F1").Select 
    ActiveCell.FormulaR1C1 = "Amount" 
    Range("G1").Select 
    ActiveCell.FormulaR1C1 = "PAN" 
    Range("H1").Select 
    ActiveCell.FormulaR1C1 = "Mobile Number" 
    Range("I1").Select 
    ActiveCell.FormulaR1C1 = "Sequence Number" 
    Range("J1").Select 
    ActiveCell.FormulaR1C1 = "Network" 
    Range("K1").Select 
    ActiveCell.FormulaR1C1 = "Retailer ID" 
    Range("L1").Select 
    ActiveCell.FormulaR1C1 = "Terminal ID" 
    Range("M1").Select 
    ActiveCell.FormulaR1C1 = "Responder" 
    Range("N1").Select 
    ActiveCell.FormulaR1C1 = "Response Code" 
    Range("O1").Select 
    ActiveCell.FormulaR1C1 = "Card No" 
    Range("P1").Select 
    ActiveCell.FormulaR1C1 = "Vodafone Trans ID" 
     
     'Bold font the column header
    Rows("1:1").Select 
    Range("C1").Activate 
    Selection.Font.Bold = True 
     
     'Resize columns
    Columns("C:C").Select 
    Columns("C:C").EntireColumn.AutoFit 
    Columns("F:F").EntireColumn.AutoFit 
    Columns("K:K").EntireColumn.AutoFit 
    Columns("P:P").EntireColumn.AutoFit 
    Columns("O:O").EntireColumn.AutoFit 
    Columns("L:L").EntireColumn.AutoFit 
    Columns("H:H").Select 
    Columns("H:H").EntireColumn.AutoFit 
     
     'Hide unnecessary columns
    Range("A1").Select 
    Range("A:A,B:B,E:E,G:G,I:I,J:J,L:L,M:M,N:N").Select 
    Range("N1").Activate 
    Selection.EntireColumn.Hidden = True 
    ActiveWindow.ScrollColumn = 3 
     
     'Format Date column
    Columns("C:C").Select 
    Selection.NumberFormat = "d/mm/yyyy;@" 
     
     
     
End Sub 

If you like these VB formatting tags please consider sponsoring the author in support of injured Royal Marines

This file/macro runs fine when executed on my machine. When i upload the file to a portal on a different server, it throws the following error:

Error opening file. Method 'OpenText' of object 'Workbooks' failed

This error is from the error handler in the above code.

It appears as though it fails opening the file in the folowing sub:


	VB:
	
 ' Description:  Opens the input text file and puts data into columns.
 '               Formats the sheet by adding relevant column headers,
 '               resizing some columns and hiding unnecessary columns.
 ' Parameters:   strOpenFile     the input file to open
 ' Author:       Rosalyn Ng
 ' Date:         17 May 2005
 ' Changes:      None
 ' ToDo:         None
Private Sub openAndFormatTxt(strOpenFile As String) 
     
     'Open input file
    Workbooks.OpenText Filename:=strOpenFile, Origin:=xlMSDOS, _ 
    StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(1, _ 
    1), Array(5, 5), Array(13, 1), Array(19, 1), Array(25, 1), Array(37, 1), Array(43, 2), Array _ 
    (53, 9), Array(56, 1), Array(62, 1), Array(67, 1), Array(74, 9), Array(80, 1), Array(92, 9), _ 
    Array(96, 1), Array(97, 9), Array(98, 1), Array(101, 2), Array(117, 9), Array(120, 1), _ 
    Array(128, 1)), TrailingMinusNumbers:=True 

If you like these VB formatting tags please consider sponsoring the author in support of injured Royal Marines
When I hover above strOpenFilePath it has the correct value i.e. file location "C:TempVOIS0830.TXT"

This is the path that I selected in step 1: Selecting the input file.

Another thing to note is that I have tried putting a copy of the same file in the same folder on the server just in case it was having difficulties finding the file...it still produced the same error.

This problem is driving me crazy, so any assistance would be very appreciated.

Thank you.

I have included the other two macro code in case it is required:

Find File:


	VB:
	
 ' Description:  Executes when the user clicks the Find File button.
 '               Dialogue opens and user selects the input file for the Macro
 '               Selected file is populated to cell E5. User is able to cancel the operation
 '               Using the same file path, a default output file location is shown in E9
 ' Author:       Rosalyn Ng
 ' Date:         17 May 2005
 ' Changes:      Andrew Foster - 15 March 2006.
 '               Added Sheet Protection
 ' ToDo:         None
 
Sub FindFile_Click() 
     
    Dim sFileToLoad As Variant 
     
    On Error Goto ErrorHandler 
     
    Sheets("Process Sheet").Unprotect 
     
    sFileToLoad = Application.GetOpenFilename(FileFilter:= _ 
    "Text Files (*.txt), *.txt,Microsoft Office Excel Workbook (*.xls),*.xls,All Files (*.*),*.*.") 
     
    If sFileToLoad  False Then 
        Range("InputFile").Value = (CStr(sFileToLoad)) 
         'Add a default filename for the output
        Dim lngPos As Long 
        Dim strDefaultOutputFile As String 
        lngPos = InStrRev(CStr(sFileToLoad), ".") 
        strDefaultOutputFile = Left$(CStr(sFileToLoad), lngPos - 1) + "Output.xls" 
        Range("OutputFile").Value = CStr(strDefaultOutputFile) 
    End If 
    Sheets("Process Sheet").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 
    Exit Sub 
     
     
ErrorHandler: 
    MsgBox ("Error locating file.  " + Err.Description) 
End Sub 

If you like these VB formatting tags please consider sponsoring the author in support of injured Royal Marines
Save File:


	VB:
	
 ' Description:  Executes when the user clicks the Save Location button.
 '               Dialogue opens and user selects where to save the output of the Macro
 '               Selected file is populated to cell E9. User is able to cancel the operation
 ' Author:       Rosalyn Ng
 ' Date:         17 May 2005
 ' Changes:      Andrew Foster - 15 March 2006.
 '               Added Sheet Protection
 ' ToDo:         None
 
Sub btnSave_Click() 
     
    Dim sFileToSave As Variant 
     
    On Error Goto ErrorHandler 
     
    Sheets("Process Sheet").Unprotect 
     
    sFileToSave = Application.GetSaveAsFilename(InitialFileName:="", _ 
    FileFilter:="Microsoft Office Excel Workbook (*.xls), *.xls,Text Files (*.txt), *.txt,All Files (*.*),*.*.") 
    If sFileToSave  False Then 
        Range("OutputFile").Value = (CStr(sFileToSave)) 
    End If 
    Sheets("Process Sheet").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 
    Exit Sub 
     
ErrorHandler: 
    MsgBox ("Error locating save destination.  " + Err.Description) 
End Sub 

If you like these VB formatting tags please consider sponsoring the author in support of injured Royal Marines


Hi all,

Can anyone tell me how in vba to save a single worksheet as the worksheets name in a new folder called statistics on the desktop or in my documents but if the folder does not exist create it first?

Rather than save all my statistic worksheets in the workbook they were generated in i would like to save them as a read only worksheet in another folder, this way people can view or copy from an area where they can have no direct influence on the workbook that created them.

Any ideas?

Regards,

Simon

I am trying to find a VBA formula of the type auto_open to save a specific column on a specific worksheet. Ex: worksheet name Shift Employees. Column is B. All other cells on the worksheet page except B must still be changeable.

The goal here is to allow input in Column B during a work session but once the workbook is changed, that column can no longer be changed.

Kimberly

I have a workbook that runs code when the "print" macro is activated to save a backup copy of the sheet to the user's c-drive for archiving purposes. This form also sends an email based upon conditions in the form, so I've had to reference the Outlook 11.0 Object Library.

Everything works great in the standard form, however, if you open the backup copy on the c-drive I seem to have a problem with this Library not being selected.

Is there anyway I can automate the selection of this Library, or write some other kind of workaround for this. The error I get when activating the "print" macro on the backup copy is "Compile error: User-Defined type not defined", it highlights the following code line:
Code:
and the Outlook 11.0 Object Library is not selected in the list of references in the vbe.

Thanks in advance for any help you can offer... =)

Ben Poese

I need to print several copies of the same form with each page seqentially
numbered to create a book.

How would I setup a macro to select a different cell column within the same
row? I know that I can use the ROW() function to identify the current row.
But I'd like to setup a macro that would goto, let's say, column E of the
current row. I've tried concatenating, using formaulaes like "EROW()", "E +
ROW()", "$E$ROW()" and more but nothing seems to work for me. The idea being
that regardless of current cell, I can make select a specific column within
the same row for cell data replacement purposes.

formula to keep a running tally of the number of times a certain word appears
in a spreadsheet...

I'd like one cell that I can refer to that will always show me the number of
times SDP is listed in a spreadsheet.

Thanks in advance

Looking for a way to sincronize multiple copies of the same Excel file
automaticly.


No luck finding an answer? You could always try Google.