Mark,

I know how that goes! Glad I could help.

Doug

"Mark Dullingham" wrote in
message ...
Thanks Doug you solution work perfectly.

Appologies again for the confusion, your assumptions were correct, the now
obvious continuity errors in the code I posted was as a result of me
trying
different things as I was posting my response and not resetting the code
properly before I cut and pasted it into the posting.

Mark

"Doug Glancy" wrote:

Mark,

I admit I'm still confused about what you are doing. But, assuming the
name
of your form is "frnOptions" (with an "n"?) try:

cRunIntervalSeconds = frnOptions.TextBox1.Value

In your statement below:

cRunIntervalSeconds = UserForms("DDE Sheet").Range("I2").Value

I assume you really meant "Worksheets" - not "UserForms"?

hth,

Doug

"Mark Dullingham" wrote in
message ...
Doug, (Bob)

Sorry for the lack of info in the original post, it was late and I was
trying to keep it short and sweet !

Anyway what I'm trying to do is use the values in 2 text boxes on the
userform as part of 2 time variants in some code which auto saves a
copy
of a
workbook at an interval specified by the user and then stops after a
peroid
aslo spaecified by the user. Currently these values are enter in 2
cells
on
the worksheet.

The working code is :-

Public RunWhen As Double
Public RunFor As Double
Public cSavePeriodMins As Double
Public cRunIntervalSeconds As Double
Public Const cRunWhat = "The_SubSave"
Public Const cHowLong = "The_SubPeriod"

Sub StartTimer()
cRunIntervalSeconds = UserForms("DDE Sheet").Range("I2").Value
RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, _
procedu=cRunWhat, schedule:=True

End Sub

Sub StartPeriod()
cSavePeriodMins = Worksheets("DDE Sheet").Range("K2").Value
RunFor = Now + TimeSerial(0, cSavePeriodMins, 0)
Application.OnTime earliesttime:=RunFor, _
procedu=cHowLong, schedule:=True
End Sub

I've tried :-

cRunIntervalSeconds = UserForms("frnOptions").Range("TextBox1").Value

cSavePeriodMins = UserForms("frnOptions").Range("TextBox2").Value

But this returns a type mismatch

Now I've looked at this again and at a reasonable hour I think this may
be
due to the format of the text box needing to be a number and is by
default
formated as text but at present I don't know how to change this.

Mark




"Doug Glancy" wrote:

Mark,

What is it you want to happen, and when?

Doug

"Mark Dullingham" wrote in
message ...
How do I do this?

Ive tried this code in the worksheet and the userform bu is doesn't
work

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheet("DDE Sheet").Range("I2").Value = frmOptions.TextBox1.Value
Worksheet("DDE Sheet").Range("K2").Value = frmOptions.TextBox2.Value

End Sub

Am I just being thick!