Hello guys,

I need to create a macro which displays an InputBox to change the daycounter and monthcounter. Everytime when I want to run a macro I have to go to the VBA to replace the days or/and the month manually. So Im thinking of building an InputBox that after you input the data replace them. The "problem" is that I run 2 macros to complete the process. The 1st macro that call 5 macros "to prepare" the file and the 2nd macro that call 10 macros to do all the extracting and changing stuff and etc etc.

So, it is possible to build an InputBox that replace everything? I mean, that I repleace the info in every macro? thaks for your help!!

This is an example of one macro: 

Private Sub BDeleteWord()

Dim wsht As Worksheet
Dim filecounter As Long

 Application.ScreenUpdating = False
 
For daycounter = 26 To 29
monthcounter = 9
Filename = Format(DateSerial(2013, monthcounter, daycounter), "yyyymmdd") & ".xls"

MyPath = ThisWorkbook.Path
MyFileName = MyPath & "\" & Filename
Workbooks.Open (MyFileName)

        For Each wsht In Workbooks(Filename).Sheets
        wsht.Activate

    Columns("A:C").Select
    Set findword = Selection.Find(What:="Lateral", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=True, SearchFormat:=False)
    If findword Is Nothing Then GoTo nws
         findword.Resize(75, 1).EntireRow.Delete Shift:=xlUp

nws:
        Next wsht
    Workbooks(Filename).Save
    Workbooks(Filename).Close
Next daycounter
    
End Sub