Posts by Zurich6

    thank you for the answer to saving a workbook from an active cell but now it doesn't seem to work when I try to use the same phrase for creating another sheet within the workbook...see below.....the bold phrase works for a specific cell but not the active cell



    Keyboard Shortcut: Ctrl+n


    Dim wSht As Worksheet
    Dim shtName As String
    shtName = Sheets(1).Range("B2")
    For Each wSht In Worksheets
    If wSht.Name = shtName Then
    MsgBox "Sheet already exists...Make necessary " & _
    "corrections and try again."
    Exit Sub
    End If
    Next wSht
    Sheets(1).Copy before:=Sheets(1)
    Sheets(1).Name = shtName
    Sheets(shtName).Move After:=Sheets(Sheets.Count)
    End Sub

    ActiveWorkbook.SaveAs Filename:=Range("B1").Value


    The above formula lets me save a workbook to a specific cell but how can I get this to save to the current active cell?


    Sorry for the dumb questions but you all have been very helpful. thanks

    Well I'm still stumped on this....I have created multiple new workbooks from a master workbook and now want to automate the "save as" process based on a the cell "B1" in the new workbook.
    Below is my attempt at this but I keep getting the new file saved as "true.xls" any help would be appreciated.



    New Workbook save
    ' Macro recorded 2/7/2003 by zurich6
    '
    ' Keyboard Shortcut: Ctrl+n


    ActiveWorkbook.SaveAs Filename:=Range("B1").Select
    ActiveSheet.Paste
    , FileFormat:= _
    xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
    , CreateBackup:=False
    End Sub

    I am tyring to figure a way to automate the following process...... I have a spreadsheet with 2,000 rows of information. I'm trying to copy specific groups of rows from the main spreadsheet into individual workbooks. The rows on the main sheet can be sorted by similar id #s within each row.
    any help would be greatly appreciated..thank you