Macro not working on other computers

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi

I did a macro but it is not running on other computers. Can someone give me
a list of possible reasons?

The macro works on a single excel sheet.

Thanks

Varne
 
Check what version of Excel is used on the computers that will not run the
macro. Some VBA commands will not work with older versions. To solve the
problem if this is the cause, just re-write the code in the oldest version of
Excel being used by your group.

Vaya con Dios,
Chuck, CABGx3
 
Hi

The other machine is 2003 version. Mine is 2003 version. The problem line is
Windows("WBD16230920067").Activate and I checked the file name. It is ok.
When I take out the line the macro works.

Thanks

M Varnendra
 
Hi

Windows("WBD16230920067.xls").Activate also is not working. However we
checked with 2 other computers the codes worked. Then from the problem
computer we logged on with a different username and password and it worked.

I wrote the codes file dependant but directory independant because different
log ons have different directory and file arrangements in our network.

I copy and paste part of the codes so it may be easier for the the solver.

Sub Budgetflexer()

Application.ScreenUpdating = False

Windows("WBD16230920067").Activate (the problem line)

ActiveWorkbook.Unprotect Password:="gre"

Sheets("Budgets").Visible = True
Sheets("Budgets").Select
ActiveSheet.Unprotect xyz

Range("bc1:dz100").Select
Selection.Clear

Cells(1, 53).Select
Do
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell = Cells(2, 28)
ActiveCell.Offset(0, 1).Select
Selection.Copy
Cells(2, 55).Select
ActiveSheet.Paste
Application.CutCopyMode = xlCopy


Cells(1, 53).Select
Do
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell = Cells(2, 28) + 1
ActiveCell.Offset(0, 1).Select
Selection.Copy
Cells(2, 56).Select
ActiveSheet.Paste
Application.CutCopyMode = xlCopy

Cells(1, 53).Select
Do
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell = Cells(2, 28) + 2
ActiveCell.Offset(0, 1).Select
Selection.Copy
Cells(2, 57).Select
ActiveSheet.Paste
Application.CutCopyMode = xlCopy


Thanks

Varne
 
Glad you got it working..............thanks for closing the loop


Vaya con Dios,
Chuck, CABGx3
 
Back
Top