[color=darkblue]Private[/color] [color=darkblue]Sub[/color] UserForm_Initialize()
i = ActiveCell.Row
ii = i
k = ActiveCell.Column
kk = k
c = Application.Selection.Columns.Count
r = Application.Selection.Rows.Count
[color=darkblue]Dim[/color] wsheet [color=darkblue]As[/color] Worksheet
[color=darkblue]For[/color] [color=darkblue]Each[/color] wsheet [color=darkblue]In[/color] Worksheets
[color=darkblue]If[/color] wsheet.Visible = xlSheetVisible [color=darkblue]Then[/color] ListBox1.AddItem wsheet.Name
[color=darkblue]Next[/color] wsheet
[color=darkblue]End[/color] [color=darkblue]Sub[/color]