using range address from input box

[ahmed sousi]

in below vba code , i would like to replace all "B" in this code by range selecting or entering from application input box , kindly advise ,


Sub ahmed_code()
Dim lr As Long, r As Long, x As Long

Application.ScreenUpdating = False
lr = Range("B" & Rows.Count).End(xlUp).Row
For r = lr To 2 Step -1
x = WorksheetFunction.CountIf(Range("Sheet2!$A:$A"), Cells(r, "B"))
If x = 0 Then
Cells(r, "B").Resize(, 500).Delete Shift:=xlUp
End If
Next r
Application.ScreenUpdating = True

MsgBox "DONE YA M3alem ... Ahmed.Sousi ^_^ "
End Sub

 

[Momentman]

The code could look like this

Sub ahmed_code()
    Dim lr As Long, r As Long, x As Long
    
    inr = InputBox("Enter the Column alphabet:")
    Application.ScreenUpdating = False
    lr = Range(inr & Rows.Count).End(xlUp).Row
    For r = lr To 2 Step -1
        x = WorksheetFunction.CountIf(Range("Sheet2!$A:$A"), Cells(r, inr))
        If x = 0 Then
            Cells(r, inr).Resize(, 500).Delete Shift:=xlUp
        End If
    Next r
    Application.ScreenUpdating = True
    
    MsgBox "DONE YA M3alem ... Ahmed.Sousi ^_^ "
End Sub

 

[ahmed sousi]

thank you ,,,
appreciate your effort

 

[Momentman]

thank you ,,,
appreciate your effort

I take it that it works?

 

[ahmed sousi]

I take it that it works?

yes it is