ijd65

## Google Analytics
<script type="text/javascript">    var _gaq = _gaq || [];   _gaq.push(['_setAccount', 'UA-XXXXX-X']);   _gaq.push(['_trackPageview']);    (function() {     var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;     ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';     var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);   })();  </script>

## Hidden Div.html
<div style="visibility: hidden">Keyword1 Keyword2 Keyword3</div>

## Standard Head Tags.html
<title>my title</title> <meta name="description" content="a really good description">

## Compact Databse
Public Sub CompactDB()

   CommandBars("Menu Bar"). _
   Controls("Tools"). _
   Controls("Database utilities"). _
   Controls("Compact and repair database..."). _
   accDoDefaultAction

End Sub

## Delete Row based on conditions
Sub DeleteRows()
    Dim x As Long
    With Sheets(1)
        For x = .UsedRange.Rows.Count To 2 Step -1
            If .Cells(x, 1) < 0.2 And .Cells(x, 2) > 0.3 And .Cells(x, 3) > 10 Then
                .Rows(x).Delete
            End If
        Next
    End With
End Sub

## Hidden Text
<div style="display:none">...</div>

## Infopath Form Window Name
function XDocument::OnSwitchView(eventObj)
{
  XDocument.View.Window.Caption = "Name of Form";
}

## Access Warnings
DoCmd.SetWarnings (False)

DoCmd.SetWarnings (True)

## Wipe Row if Text not found
Public Function GetLastRow(ByVal rngToCheck As Range) As Long

    Dim rngLast As Range

    Set rngLast = rngToCheck.Find(what:="*", searchorder:=xlByRows, searchdirection:=xlPrevious)

    If rngLast Is Nothing Then
        GetLastRow = rngToCheck.Row
    Else
        GetLastRow = rngLast.Row

## Copy Range
'Fill in the range that you want to copy
'Set CopyRng = sh.Range("A1:G1")

Sub CopyRangeFromMultiWorksheets()
    Dim sh As Worksheet
    Dim DestSh As Worksheet
    Dim Last As Long
    Dim CopyRng As Range

    With Application
	Public Sub CompactDB()

	CommandBars("Menu Bar"). _
	Controls("Tools"). _
	Controls("Database utilities"). _
	Controls("Compact and repair database..."). _
	accDoDefaultAction

	End Sub
	function XDocument::OnSwitchView(eventObj)
	{
	XDocument.View.Window.Caption = "Name of Form";
	}
	Public Function GetLastRow(ByVal rngToCheck As Range) As Long

	Dim rngLast As Range

	Set rngLast = rngToCheck.Find(what:="*", searchorder:=xlByRows, searchdirection:=xlPrevious)

	If rngLast Is Nothing Then
	GetLastRow = rngToCheck.Row
	Else
	GetLastRow = rngLast.Row
	'Fill in the range that you want to copy
	'Set CopyRng = sh.Range("A1:G1")

	Sub CopyRangeFromMultiWorksheets()
	Dim sh As Worksheet
	Dim DestSh As Worksheet
	Dim Last As Long
	Dim CopyRng As Range

	With Application