It could be from your outter loop (since S is column 18
and you don't reference it anywhere in this code)

Make sure the original value of count is 0
Is 'Name' a string? If so, you'll need quotes
(goes the same for 'Initials')

HTH

-----Original Message-----
I am trying to assign the active cell a value from
another
cell on the work sheet.

The following code does not seem to work:

Do While Count < 60 ' Inner loop.
Count = Count + 1 ' Increment Counter.
If ActiveSheet.Cells(Count, 1) = "" Then
ActiveSheet.Cells(Count, 1).Value = Name
ActiveSheet.Cells(Count, 16).Value = Initials
ActiveSheet.Cells(Count, 2).Activate
ActiveCell = ActiveSheet.Cells("S18").Value
Exit Do ' Exit inner loop.
End If
Loop

The error occurs at:
ActiveCell = ActiveSheet.Cells("S18").Value

I have tried various combinations of this and none seem
to
work.

Any suggestions?

Thanks
SS

.