Inside the WallsPlus subroutine, declare the variable that holds the job
number as a Static String so that its value will survive successive call to
the subroutine and then just test to see if the variable's content is the
empty or not. For example, put the following in the code window for one of
your worksheets...

Sub TestJobNumber()
Static JobNumber As String
If JobNumber = "" Then
JobNumber = InputBox("What is the Job Number?")
End If
MsgBox "The Job Number is " & JobNumber
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Cancel = True
TestJobNumber
End Sub

Now go to that worksheet and double click any cell. You will be prompted for
a Job Number. Type it in and hit the Enter key. Doing that will display the
Job Number back to you. Dismiss the dialog box. Now, double click any other
cell. This time, you will not be prompted for the Job Number; instead, the
Job Number you typed in earlier will be repeated back to you.

--
Rick (MVP - Excel)


"Derek Johansen" wrote in message
...
I have a question for you gurus out there!

I have a macro to import a text file, run some code and basically assign
item numbers to each part of sheet based on different cells values. When
first run, the macro prompts for a job number, and then creates a
directory
for this job number. Because each job has multiple text files, at the end
of
each run of the subroutine, i'm calling the "WallsPlus()" sub routine
again.
The thing is, I don't want the user to be prompted to have to type in a
job
number for every single text file (Sometimes 50+)

I have two ideas, neither of which I know how to implement.

1. I wanted to setup If strJobNumber = "" then prompt for the job
number...
if strJobNumber < "" then don't ask for a job number. The problem here,
i
believe, is that when the sub routine is recalled, the previous
strJobNumber
is erased and is always set to ""

2. Import all the text files in one go. I don't see how this is a huge
possibility, simply because every way i have tried to import a new text
file,
it opens a new workbook. And to create a macro to copy and paste a new
workbook into a previous workbook an unknown number of times seems rather
difficult and necessary.

If anyone has any ideas on how I can implement either of these solutions,
let me know, and if you want to see my code (although very crude, but
working
none-the-less) let me know!

Thanks,

Derek