VB code not updating Excel Sheet 1

[westconn1]

you can not have 2 subs named switch, comment out the original or change name of one you are not using

just replace your existing switch procedure

[sentinelace]

I get compile error on nexsht = 1

This is module 1:

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub pause()
Dim pause As Worksheet
Do
For Each pause In ThisWorkbook.Worksheets
pause.Activate
Application.Wait Now + TimeValue("00:00:15")
End Sub
Sub Switch()
If GetAsyncKeyState(vbKeyShift) Then Exit Sub
If ActiveSheet.Index = Sheets.Count Then
nexsht = 1
Else: nexsht = ActiveSheet.Index + 1
End If
heets(nexsht).ActivateApplication.OnTime Now + TimeValue("00:00:15"), "Switch"
End Sub

[westconn1]

I get compile error on nexsht = 1

any particular error or just some random error each time?

you should declare nexsht as integer

[sentinelace]

It just says compile error. How do I declare nexsht as integer? I just put that line somewhere? Sorry I'm a noob.

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub pause()
Dim pause As Worksheet
Do
For Each pause In ThisWorkbook.Worksheets
pause.Activate
Application.Wait Now + TimeValue("00:00:15")
End Sub
Sub Switch()
If GetAsyncKeyState(vbKeyShift) Then Exit Sub
If ActiveSheet.Index = Sheets.Count Then
Dim nexsht As Integer
nexsht = 1
Else: nexsht = ActiveSheet.Index + 1
End If
Sheets(nexsht).ActivateApplication.OnTime Now + TimeValue("00:00:15"), "Switch"
End Sub

When I try this, sheets get's highlighted and I get a runtime error 438

[westconn1]

Sheets(nexsht).ActivateApplication.OnTime Now + TimeValue("00:00:15"), "Switch"

i can see this line would cause error
you could look at the original code i posted, to see how it should be

[sentinelace]

I think you lost me. That code didn't work remember? What is this code you just posted?

[westconn1]

try reading back all the posts till you find where you copied the above line from

[sentinelace]

Huh? But that code doesn't work. Still lost.

[westconn1]

but did you find why it gave error?

[sentinelace]

I have no idea on any error. This is the first time I've even approached VB. I am completely new and nothing about it, which is why I cam to this forum. I really need someone to lay out the code so I can test it.

[westconn1]

I really need someone to lay out the code so I can test it.

but you have to copy correctly

[sentinelace]

Okay here is what I have now:

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub pause()
Dim pause As Worksheet
Do
For Each pause In ThisWorkbook.Worksheets
pause.Activate
Application.Wait Now + TimeValue("00:00:15")
End Sub
Sub Switch()
If GetAsyncKeyState(vbKeyShift) Then Exit Sub
If ActiveSheet.Index = Sheets.Count Then
Dim nexsht as Integer 
nexsht = 1
Else: nexsht = ActiveSheet.Index + 1
End If
Sheets(nexsht).Activate
Application.OnTime Now + TimeValue("00:00:15"), "Switch"
End Sub

works!!!!!