With no validation:

Option Explicit
Sub test()
Dim myIndex As Long
myIndex = ActiveSheet.Index
Sheets(myIndex + 5).Cells(1, 1).Value = "ok"
End Sub


mike allen wrote:
>
> this does work, but i would like to reduce it (as it gets much bigger than
> even this):
>
> sub test()
> ActiveSheet.Next.Next.Next.Next.Next.Cells(1, 1) = "ok"
> end sub
>
> i want to choose the 5th sheet down from where i am now. i will not always
> be on first sheet when running this, nor will i know the name of the 5th
> sheet down.
> i was thinking something like:
> ActiveSheet.Next(5).Cells(1, 1) = "ok" (this does not work)
> thanks, mike allen

--

Dave Peterson