G
Guest
Hi All
In Excel I have a userform with 2 Combo Boxs one that I can select a name
and the other one selects their information off a sheet ( there are 22 sheets
available) on the desk it works perfectly I have copied all across to FP2002
and it works ok until I preview in the Browser and then it throws an error on
the function below - it cannot find the sheets that contain the data.Is it
possible to work around this problem.
Public Function WSExist(wsnamecm As String) As Boolean
'Function checks for the existence of wsexistname
'Returns the following:
'True: if found
'False: if not found
Dim WScm As Worksheet
'Set thedefault return value for the function
'(Worksheet not found)
WSExist = False
For Each WScm In ActiveWorkbook.Worksheets
If LCase(WScm.Name) = LCase(wsnamecm) Then
WSExist = True
End If
Next WScm
End Function
In Excel I have a userform with 2 Combo Boxs one that I can select a name
and the other one selects their information off a sheet ( there are 22 sheets
available) on the desk it works perfectly I have copied all across to FP2002
and it works ok until I preview in the Browser and then it throws an error on
the function below - it cannot find the sheets that contain the data.Is it
possible to work around this problem.
Public Function WSExist(wsnamecm As String) As Boolean
'Function checks for the existence of wsexistname
'Returns the following:
'True: if found
'False: if not found
Dim WScm As Worksheet
'Set thedefault return value for the function
'(Worksheet not found)
WSExist = False
For Each WScm In ActiveWorkbook.Worksheets
If LCase(WScm.Name) = LCase(wsnamecm) Then
WSExist = True
End If
Next WScm
End Function