Bob A,
This is the solution I came up with:

Sub Get_NewID()
Dim ID As Long, NewID As Long

ID = Worksheets("Sheet1").Range("A1").Value
NewID = ID + 1


Range("A1").Select
Selection.Value = NewID


End Sub
"Sheet1" you should change to the name of your sheet. What this doesis this:
If 1 is in cell A1, this program reads the "1" and adds 1 to it.
Is that what you want?
hth
"Bob A" wrote:

I get an error 1004 when I execute the VBA function below. I've tried
everyting, Range = ID, cells(1) = ID, Range("test").Cells(1).Value = ID, you
name it. Always the same error.

Range "Test' is a named range of one cell on sheet 1 that contains the value
997.

The Function below reads the correct value out of the named range into the
var ID, but errors out when I write to the cell. Cell is not locked. Sheet
is not protected. Trust Center allows VBA code. Code is in a seperate
module, not on the sheet code.

Purpose is to increment a value, and save it in a cell on the sheet.

I call the function from another cell, like this: =IF(B4="","",NewID())

I've been at this for hours, researching what could be wrong. About ready to
toss the computer out the window. Anyone have any ideas?

Function NewID()
Dim ID As Long

ID = Range("Test").Cells(1).Value
ID = ID + 1
Range("Test").Cells(1).Value = ID 'This line throws the error

NewID = ID

End Function