Я могу запустить макрос на отдельных листах, но не на всех открытых листах.
Я хочу запустить этот макрос на 700 листах. Мы пытаемся удалить один столбец.
Sub RunMacroOnAllSheetsToRight()
For i = ActiveSheet.Index To Sheets.Count
Call MyFunction(i)
Next i
End Sub
Function MyFunction(i)
'Code goes here
Dim lColumn As Long
Dim iCntr As Long
lColumn = 5
'For Each ws In ThisWorkbook.Worksheets
'For iCntr = lColumn To 1 Step -1
If IsNumeric(Cells(1, lColumn)) Then
Columns(lColumn).Delete
End If
'Next ws
MsgBox "I'm currently on sheet " & ThisWorkbook.Sheets(i).Name
End Function