Freeze multiple sheets - message box to select cell

[Jono_NZ]

I'm wanting to use a macro to freeze all selected sheets using the same cell for all sheets. So far I have:

Sub FreezePanes()
Range("F7").Select
With ActiveWindow
.FreezePanes = False
.FreezePanes = True
End With
End Sub

The only issue is I need to manually change the cell value in VBA. Is there a way to have an input box come up to enter the cell value?

 

[mumps]

Try:

Sub FreezePanes()
    Dim x As Long
    x = InputBox("Enter row number.")
    With ActiveWindow
        If .FreezePanes Then .FreezePanes = False
        .SplitColumn = 0
        .SplitRow = x
        .FreezePanes = True
    End With
End Sub

 

[Jono_NZ]

Thanks. That works well if it is just the rows. How about if I want row and column e.g. "Enter cell" F7

 

[mumps]

Try:

Sub FreezePanes()
    Dim x As Long, y As Long
    x = InputBox("Enter row number.")
    y = InputBox("Enter column number.")
    With ActiveWindow
    If .FreezePanes Then .FreezePanes = False
        .SplitColumn = y
        .SplitRow = x
        .FreezePanes = True
    End With
End Sub