I have tried to assign this macro to a command button to without success. The problem starts at the activesheet position

Sub Macro3()

' Macro3 Macro
' Macro recorded 2/20/02 by bmk6199
'
Range("F6").Select
ActiveSheet.ShowDataForm
End Sub