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