UserForm

Sub GetSheetReference()
Check.Show

End Sub

Sub StoreSheetRef()
CR = ActiveCell.Address
MsgBox CR
Check.CellRef.Text = CR
End Sub

########## Form###
Check.frm

VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Check
Caption = "UserForm1"
ClientHeight = 3015
ClientLeft = 120
ClientTop = 465
ClientWidth = 4560
OleObjectBlob = "Check.frx":0000
ShowModal = 0 'False
StartUpPosition = 1 'CenterOwner
End
Attribute VB_Name = "Check"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub GetCellRef_Click()
StoreSheetRef
End Sub

Private Sub GetCellRef_Click()
StoreSheetRef
End Sub