Yay! I have it working. Largely with thanks to Tom.

private sub absent_click()

dim absentcell as range
dim row as integer
row = 61

activeworkbook.sheets(\"aerobics\").activate

range(\"g61\").select

a = \"a\"

do

do

if activecell.value < a then

activecell.offset(1, 0).select

row = row + 1

if row 90 then exit sub

end if

loop until activecell.value = a

set absentcell = activecell

activecell.offset(0, -2).select

selection.copy

range(\"b98\").select

do

if activecell.value < \"\" then

activecell.offset(1, 0).select

end if

loop until activecell.value = \"\"

selection.pastespecial paste:=xlpastevalues, operation:=xlnone
skipblanks _
:=false, transpose:=false
application.cutcopymode = false

absentcell.select

activecell.value = \"absent\"

activecell.offset(1, 0).select

row = row + 1

if row 90 then

exit sub

end if

loop until row 90

end su

--
Message posted from http://www.ExcelForum.com