C
Corey ....
I have a userform, with a Listbox(Listbox1) on it.
It is populated with all(minus 1) sheet names within the workbook.
*************************
Private Sub UserForm_Initialize()
Dim wsSheet As Worksheet
Dim actsh As Worksheet
Dim lngIndex As Long
With ThisWorkbook
For Each wsSheet In .Worksheets
If wsSheet.Name <> "NAVIGATION PAGE" Then
ListBox1.AddItem wsSheet.Name
End If
Next
End With
End Sub
*************************
I have the form display using the WorkSheet_Activate ruitine.
************************
Private Sub Worksheet_Activate()
If Sheet1.Range("A8").Value = "" Then Call UserformShow
End Sub
************************
But what i want to do is have the ACTIVE Sheet name HIGHLIGHTED(Selected) in
the Listbox, when the form is initialised.
How can i achieve this ?
Corey....
It is populated with all(minus 1) sheet names within the workbook.
*************************
Private Sub UserForm_Initialize()
Dim wsSheet As Worksheet
Dim actsh As Worksheet
Dim lngIndex As Long
With ThisWorkbook
For Each wsSheet In .Worksheets
If wsSheet.Name <> "NAVIGATION PAGE" Then
ListBox1.AddItem wsSheet.Name
End If
Next
End With
End Sub
*************************
I have the form display using the WorkSheet_Activate ruitine.
************************
Private Sub Worksheet_Activate()
If Sheet1.Range("A8").Value = "" Then Call UserformShow
End Sub
************************
But what i want to do is have the ACTIVE Sheet name HIGHLIGHTED(Selected) in
the Listbox, when the form is initialised.
How can i achieve this ?
Corey....