[vba]
Sub sortall()
sort "G"
End Sub
Sub sort( ByVal mysort As String)
Dim e
e= Range ("Sheet1!" & mysort & "5").Value
'do some other stuff
End Sub
[/vba]
[vba]
Sub sortall()
sort "G"
End Sub
Sub sort( ByVal mysort As String)
Dim e
e= Range ("Sheet1!" & mysort & "5").Value
'do some other stuff
End Sub
[/vba]
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
Posting Permissions
Reply With Quote