Creating worksheets from a database
Argh! Tested this code on existing data but forgot to change it back
to fit the example of data in A10:A20. The column reference should be
1, not 10, as below:
Sub Jump()
Dim GoToTab As String
'Validation: ensure the cell pointer is in the correct range
'Suppose your list of tabs occurs in cell A10 thru A20. Use this to
make sure the cellpointer
'is in the proper range. There are more elegant ways to do this if
the range will expand:
'for instance, use a Named Range that will expand as the selection
expands, then use additional
'validation to make sure the cell pointer is within the range. This
will work for now.
If ActiveCell.Column < 1 Or ActiveCell.Row < 10 Or ActiveCell.Row
20 Then
MsgBox "To jump to a tab, place the cell pointer on a tab inside the
valid range and then press the Jump button."
End
End If
GoToTab = ActiveCell.Value
'unhide the sheet, if it is hidden
Sheets(GoToTab).Visible = True
'go to tab
Sheets(GoToTab).Select
Range("a1").Select
End Sub
|