Hi Norman

I was trying to modify the code provided Harald Staff... In hi
original code, a dialog box will appear to ask for the range to b
saved as a gif... I wanted to pre specify it... so I have created
Function named Own and put the MyAddress = Own... Originally
"MyAddress" will take the range specified in the dialog box... Hope
have made myself clear... Please feel free to ask me any othe
questions...

Cheers

Function Own() As String
Sheets("Sheet2").Select
Range("K133:M144").Select
End Function

Public Sub GIF_Snapshot_Own()
Dim varReturn As Variant
Dim MyAddress As String
Dim SaveName As Variant
Dim MySuggest As String
Dim Hi As Integer
Dim Wi As Integer
Dim Suffiks As Long


Set Sourcebok = ActiveWorkbook
MySuggest = sShortname(ActiveSheet.Name)
ImageContainer_init
Sourcebok.Activate
MyAddress = Ow

--
hc
-----------------------------------------------------------------------
hce's Profile: http://www.excelforum.com/member.php...nfo&userid=351
View this thread: http://www.excelforum.com/showthread.php?threadid=26445