ComboBox1.Value = Sheet4.Range("G500").End(xlUp).Value

this value is unaceptable if "23.000456782" or such. If something like this
then reject and default to Sheet1.Range("N43"). If like "Msjdh-dgets" OK

If ComboBox1.Value = "what do I put here" Then ComboBox1.Value =
Sheet1.Range("N43")
--
Jim at Eagle

> ComboBox1.Value = Sheet4.Range("G500").End(xlUp).Value
>
> this value is unaceptable if "23.000456782" or such. If something like
> this
> then reject and default to Sheet1.Range("N43"). If like "Msjdh-dgets" OK
>
> If ComboBox1.Value = "what do I put here" Then ComboBox1.Value =
> Sheet1.Range("N43")

Your example is not complete enough. Are you rejecting ALL numbers? Only
numbers of certain type or shape? Is there anything besides numbers that are
to be rejected?

Rick

ComboBox1.Value = Sheet4.Range("G500").End(xlUp).Value
If IsNumeric(ComboBox1.Value) Then ComboBox1.Value = Sheet1.Range("N43")

Thanks Rick, for your interest. Took about a hour, I knew it was there
somewhere.
--
Jim at Eagle


"Rick Rothstein (MVP - VB)" wrote:

> > ComboBox1.Value = Sheet4.Range("G500").End(xlUp).Value
> >
> > this value is unaceptable if "23.000456782" or such. If something like
> > this
> > then reject and default to Sheet1.Range("N43"). If like "Msjdh-dgets" OK
> >
> > If ComboBox1.Value = "what do I put here" Then ComboBox1.Value =
> > Sheet1.Range("N43")
>
> Your example is not complete enough. Are you rejecting ALL numbers? Only
> numbers of certain type or shape? Is there anything besides numbers that are
> to be rejected?
>
> Rick
>
>