Excel macros
On 14 Mar, 11:27, "Peter T" <peter_t@discussions wrote:
1. Rt-click the sheet tab - view code to take you into the sheet module
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
* * * * * * Cancel As Boolean)
* * If Target.Address = "$B$5" Then Range("W23").Select
End Sub
2.
In a normal module
Sub PictureInsert()
Dim sFileFilter As String, sTitle As String, sAddr As String
Dim vFile
* * On Error Resume Next
* * sAddr = ActiveCell.Address(0, 0)
* * On Error GoTo 0
* * If Len(sAddr) = 0 Then
* * * * MsgBox "First select cell in which to insert picture"
* * * * Exit Sub
* * End If
* * sFileFilter = "Picture files, *.bmp;*.jpg;*.gif"
* * sTitle = "Browse to Picture file to insert in cell : " & sAddr
* * vFile = Application.GetOpenFilename(sFileFilter, sTitle)
* * If Not vFile = False Then
* * * * ActiveSheet.Pictures.Insert vFile
* * End If
End Sub
Regards,
Peter T"salonowiec" wrote in message
...
In point 1 it works wonderful... In 2 - after
If Not vFile = False Then
I'm getting error Type mismatch
|