View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
pokdbz pokdbz is offline
external usenet poster
 
Posts: 43
Default Macro creating folder and files automatically, without permission.

I'm using this macro:
Sub TwoPercentCheck()
i = 15
Do While Range("A" & i) < ""
If Range("A" & i).Value = 26001 Or Range("A" & i).Value = 26005 Or _
Range("A" & i).Value = 26007 Or Range("A" & i).Value = 26011 Or _
Range("A" & i).Value = 314001 Or Range("A" & i).Value = 315001 Or _
Range("A" & i).Value = 495001 Or Range("A" & i).Value = 835001 Or _
Range("A" & i).Value = 22801 Then
Else
If Range("B" & i) 0 Then
Range("K" & i) = Range("I" & i) / Range("B" & i)
Range("K" & i).Style = "Percent"
Else
Range("K" & i) = 0
End If
If Range("C" & i) 0 Then
Range("L" & i) = Range("J" & i) / Range("C" & i)
Else
Range("L" & i) = 0
End If
If Range("K" & i) = 0.02 Or Range("L" & i) = 0.02 Then
Range(Cells(i, 1), Cells(i, 12)).Interior.ColorIndex = 6
Range(Cells(i, 1), Cells(i, 12)).Interior.Pattern = xlSolid
End If
Range("K" & i).NumberFormat = "0.00%"
Range("L" & i).NumberFormat = "0.00%"
End If
i = i + 1
Loop
End Sub

When this macro starts for some reason it puts a Folder in the location
where the Excel Worksheet is named the same thing as the Worksheet. Inside
this folder. There are 2 files.
filelist.xml
editdata.mso

I have no clue why this is creating these items and would like to stop it.
If you have any idea on whats going on that would be great.