Error during program

T

Tom

Hello,

I have this part of code (I dint programming this):

Function XlsWbkCreate(oXlWbk As Object) As Boolean
Const Cc£abel As String = "Notes in Object browser"
Const CcName As String = "XlsSheetCreate"
Dim cErrUsrMsg As String
Dim tErr As tpErr

Dim cTmp As String
Dim nCount As Integer

Dim oXlWsh As Object
Dim oXlCell As Object
Dim oCheckBox As Object 'Shape

oXlWbk.Sheets(1).Name = "data reference sheet"
For Each oXlWsh In oXlWbk.worksheets
If Not oXlWsh.Name = "data reference sheet" Then
oXlWbk.worksheets(oXlWsh.Name).Delete
End If
Next
Set oXlWsh = oXlWbk.Sheets("data reference sheet")

and when program comes here:
oXlWsh.Range("A:A,C:E,G:G,I:I,K:K").ColumnWidth = 14

then stop with error, but problem is this application works only on one
computer only for one user (because it was programming here). When its try
run this program another else it dosnt work.

Its possible to help me?

Thanks Tom
 
Top