lior03
08-13-2008, 02:18 AM
hello
my aim is to allow the user scroll through all sheets.i want to let the user decide whether he wants to remain where he got of go on scrolling.i want to eliminate the beep sound every time the user move to a new sheet.and finaly iwant to learn how to do the opposite- go to next sheet
thanks
Sub selectsheet()
On Error GoTo err
ActiveSheet.Previous.Select
MsgBox "you entered - " & ActiveSheet.name, vbInformation, _
"this w.b contains " & ActiveWorkbook.Sheets.Count & " - sheets"
Exit Sub
err:
MsgBox " you reached the first sheet - " & ActiveSheet.name, vbCritical, _
"this w.b contains " & ActiveWorkbook.Sheets.Count & " - sheets"
End Sub
thanks
my aim is to allow the user scroll through all sheets.i want to let the user decide whether he wants to remain where he got of go on scrolling.i want to eliminate the beep sound every time the user move to a new sheet.and finaly iwant to learn how to do the opposite- go to next sheet
thanks
Sub selectsheet()
On Error GoTo err
ActiveSheet.Previous.Select
MsgBox "you entered - " & ActiveSheet.name, vbInformation, _
"this w.b contains " & ActiveWorkbook.Sheets.Count & " - sheets"
Exit Sub
err:
MsgBox " you reached the first sheet - " & ActiveSheet.name, vbCritical, _
"this w.b contains " & ActiveWorkbook.Sheets.Count & " - sheets"
End Sub
thanks