here is my code so far: ( need to change from pasting into sheet points and pasting to b5 to pasting into points sheet but looking for the next cell after the word point numbers is found)
' AlligatorCracking Macro
' Macro recorded 2/21/2005 by Kevin Morgan
' Keyboard Shortcut: Ctrl+a
Dim DestBook As Workbook, SourceBook As Workbook
Dim DestCell As Range
Dim RetVal As Boolean
Dim SaveAsName As String
SaveAsName = InputBox("SAVE FILE NAME AS?")
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\mor35918\Desktop\" & SaveAsName, FileFormat:= _
Dim result As String
result = InputBox("WHAT IS THE ROADWAY NAME?")
Range("C1").Value = result
result = InputBox("WHAT IS THE ROADWAY NUMBER?")
Range("C2").Value = result
result = InputBox("WHO INSPECTED THE JOB?")
Range("C3").Value = result
result = InputBox("WHAT WAS THE INSPECTION DATE?")
Range("E3").Value = result
' Turn off screen updating.
Application.ScreenUpdating = False
' Set object variables for the active book and active cell.
Set DestBook = ActiveWorkbook
Set DestCell = ActiveCell
' Show the Open dialog box.
RetVal = Application.Dialogs(xlDialogOpen).Show("*.txt")
' If Retval is false (Open dialog canceled), exit the procedure.
If RetVal = False Then Exit Sub
' Set an object variable for the workbook containing the text file.
Set SourceBook = ActiveWorkbook
' Copy the contents of the entire sheet containing the text file.
' Activate the destination workbook and paste special the values
' from the text file.
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
Application.CutCopyMode = False
I know that at the very end, there is the line "ActiveSheet.Paste"
This line is uneccessary and likely will not work as you wish.
You also declare "ActiveWorkbook" as two different variables, i.e. source and destination...if these do not change, you are better off declaring exactly what you need in there.
Also, from what I see, and I have not tested your code ...but it seems you are setting variables such as DestCell=ActiveCell. If you do not activate the destination cell (Range "B5" I think is what you want), then whichever cell was last activated will populate the variable DestCell.
If your code runs and stops, post the error that you get, and what part of the above code it hangs up on.