Sub formatgpr()
' Macro recorded 2/7/2006 by Hana Lee

'FORMAT GPR FILE FOR ANALYSIS
Dim exptname
exptname = _
Application.InputBox(Prompt:="What is the experiment name?", _
Title:="Experiment Name", Type:=2)
ActiveSheet.Name = exptname
    
ActiveSheet.Copy
Workbooks(Application.Workbooks.Count).Sheets(exptname).Select
    
Rows("1:31").Delete Shift:=xlUp
Range("A1").Select
Do While IsEmpty(ActiveCell) = False
    If ActiveCell.Formula = "Name" _
    Or ActiveCell.Formula = "ID" _
    Or ActiveCell.Formula = "F635 Median - B635" _
    Or ActiveCell.Formula = "F532 Median - B532" _
    Or ActiveCell.Formula = "Flags" Then
        ActiveCell.Offset(0, 1).Select
    Else
        Range(ActiveCell, ActiveCell.End(xlDown)).Delete Shift:=xlToLeft
    End If
Loop

Application.Dialogs(xlDialogSaveAs).Show
    
End Sub