Operating Engineer
Closed
Shailesh
-
Apr 25, 2010 at 04:20 PM
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Apr 25, 2010 at 08:35 PM
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Apr 25, 2010 at 08:35 PM
Related:
- Operating Engineer
- Ubuntu operating system download - Download - Linux
- Chrome operating system download - Download - Security and maintenance
- Windows 10 operating system free download full version with key - Download - Windows
- Wifi operating mode - Guide
- Kali linux operating system download - Download - Linux
1 response
rizvisa1
Posts
4478
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
May 5, 2022
766
Apr 25, 2010 at 08:35 PM
Apr 25, 2010 at 08:35 PM
Sub rangeSelect()
On Error Resume Next
Err.Clear
If (Range("A1") <> "") Then Range(Range("A1")).Select
If Err.code = 0 Then
If (Range("B1") <> "") Then Range(Range("B1")).Select
If Err.code = 0 Then
Range(Range("A1") & ":" & Range("B1")).Select
End If
End If
Err.Clear
On Error GoTo 0
End Sub
On Error Resume Next
Err.Clear
If (Range("A1") <> "") Then Range(Range("A1")).Select
If Err.code = 0 Then
If (Range("B1") <> "") Then Range(Range("B1")).Select
If Err.code = 0 Then
Range(Range("A1") & ":" & Range("B1")).Select
End If
End If
Err.Clear
On Error GoTo 0
End Sub