Might be more fun to do the seemingly pointless functions. Like did you know:actually does something? (Free cookie to the first person who knows the value of it )Code:Range("A1").Value = Range("A1").Value
Sub Pointless()
Dim i as integer
Dim LR as integer: LR = Range("A" & rows.count).End(xlUp).Row
For i = 1 to LR
If Cells(i + LR,"A") = Cells(LR + 1,"A") Then
Msgbox "Press OK to Continue"
Next i
End Sub
Might be more fun to do the seemingly pointless functions. Like did you know:actually does something? (Free cookie to the first person who knows the value of it )Code:Range("A1").Value = Range("A1").Value
=if(rand()=rand(),rand(),rand())
Maybe more pointless would be
=IF(RANDBETWEEN(1,3)=1,1,IF(RANDBETWEEN(1,3)=2,2,IF(RANDBETWEEN(1,3)=3,3,randbetween(1,3))))