Fijar formulario en excel

Buenos días, tengo una plantilla, en la cual tengo un formulario con el que puedo previsualizar pdfs de una carpeta. Dicho formulario, me gustaría que se pudiera fijar, para que cuando me deslizo por las barras de desplazamiento no me siga. Quiero que quede fijo en las celdas A1:B22 y no se pueda mover, ni me siga cuando me muevo abajo o hacia los lados. Además, si fuera posible, me gustaría saber si se puede renombrar el fichero que estoy viendo en ese momento, con el nombre de una celda en donde voy poniendo los nombres (El nombre está en la E16, y me gustaría que lo copiase y lo renombrase). Trabajo con Excel 2007. Aquí incluyo el código del formulario:

Dim RUTA As String
Private Sub UserForm_Initialize()
On Error GoTo Errores
Dim fName As String
archivo = Application.GetOpenFilename(Filefilter:=" Archivos PDF (*.pdf), *.pdf,", _
Title:="Seleccionar cualquier archivo .pdf o cancelar para ver el directorio actual")
If archivo = False Then
RUTA = ThisWorkbook.Path & "\" ' RUTA DONDE BUSCA LOS ARCHIVOS PARA EL LISTADO
Else
x = InStrRev(archivo, "\")
RUTA = Left(archivo, x)
End If
Me.Caption = "Archivos: " & RUTA & "*.pdf"
LV.ListItems.Clear
fName = Dir(RUTA)
Do While Len(fName) > 0
If fName Like "*" & ".pdf" Then Set SUBELEMENTO = LV.ListItems.Add(, , fName)
fName = Dir
Loop
With Me
.StartUpPosition = 0
.Top = 0
.Left = 0
End With
Exit Sub
Errores:
MsgBox "initialize: " & Err.Number & Chr(13), 16, Title:=""
End Sub
Private Sub LV_DblClick()
On Error GoTo Errores
NOMBRE = LV.SelectedItem.Text
archivo = RUTA & NOMBRE
UserForm1.WEBB.Navigate archivo
Exit Sub
Errores:
MsgBox "initialize: " & Err.Number & Chr(13), 16, Title:=""
End Sub
Private Sub WEBB_StatusTextChange(ByVal Text As String)
End Sub

Muchas gracias!!