Private Declare Function GetDC Lib "user32.dll" (ByVal hWnd&) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC&, ByVal nIndex&) As Long
Private Sub UserForm_Activate()
Dim G#, H#, vTarget As Range
G = GetDeviceCaps(GetDC(0), 88) / 72
H = GetDeviceCaps(GetDC(0), 88) / 72
Set vTarget = ActiveCell.Offset(, 1)
With ActiveWindow
Me.Left = .PointsToScreenPixelsX(vTarget.Left * G) * 1 / G
Me.Top = .PointsToScreenPixelsY(vTarget.Top * H) * 1 / H
End With
End Sub